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| “TATU UF TCOMSOQ , VAK/VAS UETP DEVICE TEST FOR DMC/DMR 


«ENABLE SUPPRESSION 


PARRA RARAARAARAAAAAAAAALA AAA ALARA LASALLE LALA RAR ALARA AAR RARER AAA RAR A AERA AAAS SS 
& 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH TH THE 


ONLY IN SUCH LICENSE AND WITH 
T ANY 0 


* 
cy 
cf 
® 
8 
a 
* 
I * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
« 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ND SHOULD NOT . 
© 

® 

7 

© 

& 

® 

a 


A BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ete te 
see ee eee eeeeeeeeeeaenene 


(LAR RRAAAAASAASALALALAAALALASEA RRL A ARERR RECA RRR RRA RRA R ARERR RRA SAAR RRA RADDA DO 


+4 

FACILITY: 
This notes will be distributed with VAX/VMS under the CSYSTEST] 
account. 


; ABSTRACT: ; 
This is the test program for DMC 11 / DMR 11 UETP device test 


; ENVIRONMENT: 

This program will run in user access mode, with AST enabled except 
during error processing. This program requires the following 
privileges and quotas: 


OOQGCCOCOCCOOCOOOOOCOOOoooOSoO 


AUTHOR: Paul Jenq, CREATION DATE: May, 1981 

; MODIFIED BY: 

V03-008 RNHO007 Richard N. Holstein, 15-F eb-1984 
Take advantage of new UETP message codes. fix SSERROR 
interaction with RMS_ERROR. 


v03-007 RNHOO006 Richard N. Holstein, 19-Dec-1983 
Give correct sentinels to Test Controller. 


v03-006 RNHOO0S Richard - Holstein, 07-Dec-1983 
Fix bug causing attention AST error messages. 


SOoOSOOCSCOOCOOOSOOSOSSSOSOSOSOSOSOSOSOOOOSSOSSOS 


Sooooo 


OOOO CCOSOSOOSOSOSOSOSOSOSOOSOOCOOOOOOSOOOOOOSSoOS 


ooooo 


MUNI BB BB BERS BWW oronononononononony 3 2 2 3 


NAME WR OC OD NAME WIN SO OD NAW E WIN 9 ODN NE WN 0 OD NA NEW OOOO 


SOOOCOCOOOOOOOoOooO 


Sooooooooo 


} 
—— | 
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28 3 v03-005 RNHOO04 Richard N. Holstein, 11-Nov-1983 
; : Use decimal conversion routine for unit numbers. 
6 ; v03-004 RNHOOO3 Richard N. Holstein, 11-Mar-1983 
6¢ : Don't signal ending message in EXIT_HANDLER. 
64 : v03-003 RNHOOO2 Richard N. Holstein, 25-Feb-1983 
o2 : Allow for longer device names. Fix error numbering bug. 
8s : v03-002 RNHOO01 Richard N. Holstein 03-Nov-1982 
68 ; Miscellaneous fixes Listed in the V38 UETP Workplan. 
p $3 ; v03-001 LDJ0002 Larry D. Jones, 03-Sep-1982 
38 4} & Fixed LOOP mode bug causing device offline error message. 
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-SBTTL Declarations 
INCLUDE FILES: 
SYSSLI RARY : LIB.MLB for general efinitions 


Sete Ge Ge Ge 


SHRLIBS:UETP. MLB for UETP definitions 
3; MACROS: 
SCHF DEF 3; Condition handler frame definitions 
SDEVDEF ; Device definitions 
SDIBDEF 5 ce Information Block 
SOVIDEF 3 SGETDVI ITMLST item codes 
SSHRDEF ; Shared messages 
SSSDEF 3 System Service status codes 
SSTSDEF 3; Status return 
SUE TUNTDEF 3 rt unit block offset definitions 
SUE TPDEF 3; UETP 
SXMDEF ; DMC/DMR chars and status definition 
SMSGDEF ; mailbox message type definition 


EQUATED SYMBOLS: 


Facility number definitions: 
00000001 RMSS_FACILITY = 1 
; ~—s SHR vie definit 

UETP pode & FA 


c 
mm 
-" 
vv 
. 
Be 
oc 
m 
z 
o 
a’ 


ions: 
CILIT vesrory FAC_NO ; Define the UETP facility code 
Up Te iS $_ABENDD ; Define the UETP message codes 
=U Tpisnns “BEGIND 
= UETP!SHRS$_ENDEDD 
UETPS- “OPENIN = UETP!SHR$_OPENIN 
= UETP!SHRS_TEXT 


COOOOCOCCOCOOOOOOOSOOOOOOSOOOOSoSoOSoOo 
SOOOCCCOOoOOoOOCOOOOOOSOOOOoOOoOoOoOOoOo 


COOCCCOCOCOOCOCCOOCOOCOCOOCOOoOoOOSOoO 


OOOooooqoooooooooooo 


PWN 9 OD NA UNE WIN 9 ONAN EW 0 OD NOU EW" O OONO YU & 


tt I MQOOOODOODOOOO OO OOOO OOO OWWOWWOOOWOo YIN 


1 
1 
1 
1 
1 
1 
1 
: 
1 5 Internal tag bits...: 
444 1 OVE =] ; Set when t test is over 
saa ot 1 SAFE TO_UPDV = § ; Set if it's safe to update UETINIDEV 
0000 4 1 IR_MSG = ; Set if “BEGIN msg has been printed 
0000004 1 MODE _TS ONEV = 4 ; Set wnen the MODE is ON 
0000005 4 1 “ERRV s 5 : Set when intended introduce error for tes 
00000006 00 115 FLAG_SHUTDNV = 6 ; Set to indicate device should be 
00 1 § 3 <4 if errors occur 
1 3 oo 0nd sorrespond din ng masks: 
0000002 1 8 T_OVER = TaTEST_OVERV 
0 4 8 1 sare TO_UPDM = 1a@SAFE TO _UPDV 
120 IR_MSGM == 1aBEGIN_MSGV 
0001 121 MODE_TS_ONEM = 1@MODE_TS_ONEV 
000002 1 ; “ERRM = 1aTEST_ERRV 
000004 ' Z FLAG_SHUTONM = 1aFLAG_ SHUTDNV 
125 ; Bisco) teny: 
0000 8 1 § LC_BITM = *x20 s k to convert lower case to upper 
1 REC_SIZE =4 : UETIN IDEV.DAT record size 
4 1 8 TEXT_BUFFER = 132 : Internal text buffer sien 
4 1 EFN2” = 4 : EFN used for three minute timer 
3 130 SS_SYNCH_EFN = 3 ; Synch miscellaneous system services 
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am 


Sete Ge Ge Se Se Se tee 


= 
SOOO LOONAUDOW—Ooulp 


SOOO ooooooooooooooooooooooo 


SOooooooocoooa 
a a a kk a a kd 


PVPS Be Be ES BBE EWI 


Sooooooooo 
COOoQoQoQoQoQoQoQoQooooooo 
NAMIE WN | O OONAUES WN OOONOUES Wn 


0 
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; Longest possible process name 

; Longest possible controller name 

; Rai tbox pyserong unit number 

box si 

maximum message length 

Timer id to prevent hung 

Timer id to prevent aune 

Timer to prevent hung when Read/write 
Loop count for each message length 


EFN for QI0 write 

FN for attention AST delivered 

N for mailbox AST delivered 

N mask for attention ast deliver 

N mask for mailbox ast deliver 

T parameter for test 

ze of device dependent part of UETUNT 
ze of device write buffer 

Size of device read butler 


Awnypmmnmnm 


F 
F 
F 
$s 
i 
i 


me sogether all of the pieces... 
«eewhich make up a UETP unit block.. 
“to ie to the SEXPREG service below 


ESC character 


UETCOMSOO VAX/VMS UETP 
v04-000 Read-Only 


0000 G 


53 45 54 53 59 53 pan wre 

4D 4F 43 54 45 55 ee 
30 30 5 

50 55 53 54 45 55 scp 

41 4E 4C 52 54 43 00000039'010E0000' 
45 4D 


45 44 4F 4D 00000049'010E0000' 


00000000' 


4E 49 24 53 59 53 yeoneeer’y 


0000000C 
21 20 42 58 32 21 0000006/"939E 9009" 
20 42 58 3 


2A 20 42 58 32 21 vires Metieaiea * 4 


65 74 % gf 62 41 000000AB'01 
72 65 73 75 20 61 $ 61 69 76 
43 2F 4C 52 54 
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oO 
OOCocoo 


m 
ee ee ee ee ey 
Sa ACO 


Oust Wr-oO”o 


SUPDEV_GBLSEC 
-ASCI 


-ASCID /MODE/ 
NO_RMS_AST_TABLE 
LON 


ooo 
zzz 
a ag 


-LONG RMS$~RAB 
NRAT_LENGTH = .-NO_RAS_AST_TABLE 


0E0000°" 
55 50 


> OOOCOCDOWONNNNNOO 


@ 
=A & & LON nronym ono 1 


RA Ot es ee ss 

S00 OOD OCOOOOCODO BOWDDDMmoOW NNN NNN OOO 

OOO NOU FW "OOON AUEWWN—"OOONOUSW NO Oo~ 
= 


meron 


ooo 


wn 


D 
4 
4 
4 
2 
E 
4 


~m 
So 
> 


HOES BLEUGD WEMPMtttcts 


/No controller specified./ 


0 
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; Process name on exit 


This test name 
How we access UETSUPDEV.DAT 
Logical name of controller 


Run mode logical name 


List of errors for which... 
«+eRMS cannot deliver an AST... 
-.-even if one has an ERR= arg 
Note that we can search table... 
eeeVia MATCHC since <31:16>... 
--epattern can't be in <15:0> 


Name of device from which... 
«-ethe test can be aborted 


$GETDVI arg List for SYSSINPUT 

We need the equivalence name 
Terminate the List 

Device class and type control string 


; Device class-only control string 


\Aborted via a user CTRL/C\ 


UETCOMSOO 
v04-000 
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20 74 27 6E 61 43 000000EC'010E0000" a4 Seg ne TL: peeiPk tek cenmpetion ad, eared ble in UETINIDEV.DAT./ 
e an' est controller !AS, marked as unusable in m ° 
6C 6F $f $f E 6F 08 20 ef t é3 9% F2 
72 61 6D 20 3 41 21 72 65 6C OOFE 
61 73 75 43 0 73 61 64 65 10A 
4E 49 54 45 55 20 6E $2 65 6C 6 138 
2E 54 41 44 2E 56 45 44 4 : ‘ 97 
0 B 208 NOUNIT_SELECTED: 
69 6E 75 0 6F 43 00000133 '9105 9000" 128 09 -ASCID /No units selected for testing./ 
SP 64 65 74 63 6 of 65 69 74 0139 
E 67 6€ 69 74 73 65 74 20 72 6F 66 8133 
151 210 
151 sii ILLEGAL_REC: 
61 67 65 6C 6C 49 90009132" 91068000" 151 12 -ASCID /Illegal record format in file UETINIDEV.DAT!/ 
72 6F 66 20 64 72 6F 63 65 72 20 6C 015F 
20 65 6C 69 66 20 6E 69 20 74 61 6D 3198 
41 44 2E 56 45 44 49 GE 49 54 45 55 017 
21 54 0183 
0185 213 
0185 214 PASS_MSG: 
66 6F 20 64 6E 45 C000 8B 01052090" 0185 215 -ASCID /End of pass !UL with !UL iterations at !%D./ 
69 77 20 4C 55 21 20 73 73 61 70 4 0193 
61 8 65 74 69 20 4C 55 21 20 68 74 019F 
44 25 21 20 74 61 20 73 6E 6F 69 74 O1AB 
2E 0187 
01B8 216 
01B8 217 INIDEV_UPDERR: ; Error during exit handler 
20 72 6F 72 72 45 000001C0'010E0000' 0188 218 -ASCID /Error updating UVETINIDEV.DAT./ 
54 45 55 20 67 6E 69 74 61 64 70 75 016 
2E 54 41 44 2E 56 45 44 49 4E 49 Ate 19 
01DD $35 THREEMIN: ; 3 minute delta time 
FFFFFFFF 94862E00 8108 23¢ «LONG -10*1000*1000*180,-1 | 
O1E5 $§ ONEMIN: ; 1 minute delta time 
FFFFFFFF DC3CBA0O AEs $3 LONG -10*1000*1000*60,-1 
gree %6 UNIT_DESC: ; Descriptor used to convert unit # 
00000005 O1ED 7 .LON 5 
0000001A' gir} $ ADDRESS BUFFER+6 
O1F5 OQ CONT_DESC: ; Descriptor used to convert controller... 
0000 4 8 te 1 -WORD REC_SIZE,0 3 «from lowercase to uppercase 
00 4' a ¢ ADDRESS BUFFER 
1FD 4 FILE: ; Fills im RMS_ERR_STRING 
65 6C 69 66 00000205'010E0000' a3 5 -ASCID /file/ 
09 § RECORD: ; Fills im RMS_ERR_STRING 
64 72 6F 63 65 72 00000211'010E0000° 99 8 eASCID /record/ 
41 21 20 53 4D 0 21F°010 4 tT RAS ERR Stes: 7RMS 'AS in fil seperate nlc cl ee | 
p09 . > ! error in file ! 
66 35 6— 69 20 3$ 6F C3 65 55008 5 | 
44 41 21 20 65 6C 69 1 | 
B 242 | 
| 
| 
| 
e 


o> 
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C 
DMC/DMR 


VAX/VMS UETP DEVICE TEST FOR 


Read-Only Data 


Nhe 00 


/ 


‘Controller designation?: 


ASCII 


43 PROMPT: 


~w 
wT 


: 


-~PROMPT 


PMTSIZ = 


45 


MSG: 


47 
48 


-ASCID /Received message error, good data is !XB, bad data is !XxB / 


ECV_ERR_ 


oune—we 
| own 
Oo-wws CO 
wor-rown 


49 
$25 ASTPAR_ERRMSG: 
251 


-ASCID /Error in passed AST parameter of Q10 start or setattn/ 


Oowwo 
se ourars 
Oowowdu 
Wowss 
-Ooorw 
ormwr.cur.{ 
Oo--O 
: eimai 
or-nwonm 
” aaetieada 
OMe uw 
or-owo 


MWMaoy 
rr Oowr 


NMANM 
~OoOr 0 


uvwrws 
Orne 


weOWerwT 
woNVoor 


NeroNw 
Tren O 


omo- 
NmMNor 


-ASCID /Wrong message type in the associated mailbox/ 


ERRMSG: 


MBX _ 


wrest 
MAW 
mcr 


oaocmu. 
Bowes 
OWMOOa 
wooor 
oOo 

— Mu 
or ow 


-ASCID /Unexpected hardware or software error occurred/ 


saathihiien 3 


E 


wor 
now 
mer 


ERR_LOST_MSG: 


-ASCID /Data lost because message longer than maximum message size/ 


OOo 
MnO 
wom 


- 

oucananm 
> ‘patie 
SOMMNNG 
” acteaaties 
o-Tmoodct 
OrR-K.UOR. 


NOM~woMn 
BOP LOS 
ou OQ 
Boooe 
one 
ouwuovwvvn 


TMmMwe 
sro0oor. 


-ASCID /Error because DDCMP START message received/ 


¢ ERR_START MSG: 


3ee 
6 
6 


$6 
65 ERR_MAINT 


MSG: 
-ASCID /Error because DDCMP maintenance message received/ 


266 


STS_ORUN_MSG: 


dD 9 
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269 -ASCID /Data overrun, data received but lack of receive buffer/ 


Page Ay 


70 
ari STS_DCHK_MSG: 
72 TASCID 


63 20 61 74 61 44 0000042C'010E0000' 
is 61 te ee 63 if 29 i 63 . f /Data check, retransmission threshold exceeded/ 
65 65 63 $8 gs 20 64 6C 6F ? $? 


3 
4 STS_TIMO_MSG: 
20 50 4D 43 44 44 00000461'010E0000' 5 4 cA MP 
$ 99 ge B13 99 ' SCID /DDCMP timeout/ 
STS_DISC_MSG: 
4 90000476"g10 9099" 8 = TASCID 


74 4 
64 6F 6D 20 79 64 61 65 7 /Data set ready modem Line went from on to off/ 
74 6E 65 20 98 6E 69 6 


79 
80 NO_WAIT_READ: 
1 ASCI 


67 61 73 73 65 4D 000004AB'010E0000' 8 . /™ i 
50 85 bt 62 ei ee 69 61 76 61 20 00 1) essage available but no waiting read request/ 
69 74 69 61 77 20 6F of 4! 4 62 
75 71 65 72 20 64 61 65 72 0 67 of 4 
4736 4 8 
74 6E 65 74 74 41 0004E0'°010E0000'° 0608 388 ERR ATTN Ei fAttenti AST deli d f k / 
t9 CF oe OO ea 99 rs 3 ef €o 69 ace > / ention elivered for unknown reasons 
6— 75 $9 72 6F 66 $3 64 65 72 65 76 aor 
6E 6F 73 61 65 72 20 6E 77 6F 6E $f bere 
1838 arm porns 
2€ 53 41 31 99000513" }0E 0090" 308 87 ~TASCID \!AS.\- 
74 61 69 63 6F 73 41 SF 21 2F 21 051 288 \!/! Associated mailbox has type=MSG$_XM_!AC on !AC, unit !UW.\ 
68 20 4 6F $2 6C 4 1 $0 0 gf 65 0523 
AEP REO E EE Se 
7 $9 $f $ $ 69 6E be 36 2c 4 3: 50) 
337 89 
554 290 ATTN_MBX_TYPES: 
0008 554 91 ~WORD MSG$_XM_DATAVL 
00C 5 g 38 ~ WORD MSGS_ Xm- SHUTDN 
Dp 0552 9 -WORD MSGS$"XM~ATIN 
SSA Oe -WORD MSGS$"XM~DATAVL : antes MATCHC to distinguish.. 
55C 95 .- between Last entry and unknown 
00000008 c 36 ATTN_MBX_TYPES_LENGTH = .-ATTN_MBX_TYPES 
C 44 ATTN_MBX_TYPES NAMES: 
00000583' C ~ADDRESS ATTN_MBX_TYPES_UNKNOWN ; Duplicate entry here... 


SSS 
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V545008 Read-Only Dat §: SEP. 1984 84:30 UETP.SRCJUETCOMSOO.MAR; 1 
: 9 0 «ADDRESS ATTN_MBX_TYPES_UNKNOWN ; ...makes Later coding easier 
5 1 ADDRESS ATIN-MBX-TYPES_ATIN 
' 0568 Z “ADDRESS ATIN-MBX-TYPES~SHUTDN 
70° 8 Z -ADDRESS ATTN_MBX_TYPES_DATAVL 
25 5 ATTN_MBX_TYPES_DATAVL: 
4C 56 41 54 41 44 8" 2f 6 TASCIC™ /DATAVL/ 
57 07 ATTN_MBX_TYPES_SHUTON: 
4E 44 54 55 48 53 gO b25) 08 TASCIC™ /SHUTON/ 
Baze 09 ATTN_MBX_TYPES_ATTN: 
4E 54 54 41 9" ate 10 sASCIC™ /ATTN/ 
0383 11 ATTN -MBX. ~ CPEs UNKNOWN: 
6E 77 6F 6E 6B 6E 75 0" O383 12 ASCIC™ /unknown/ 


Read/Write Data UETP.SRCJUETCOMSO 
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ata 
OEX 


5 14 -SBTTL Read/Write D 
0000 F -PSECT RWDATA,WRT,N E,PAGE 
0000 i TTCHAN: ue (6 ; Channel associated with ctrl. term. 
0 0 FLAG: ; Miscellaneous flag bits 
0000 bf : -WORD 0 : (See Equated Symbols for definitions) 
4 FAO_BUF: 3; FAO tput stri i 
0000 0084 oo, 354 PPM ony text BUFFER. setae Fag gee cy 
00000014' 38 é -ADDRESS BUFFER 
00C BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 0084 00 = ,WORD TEXT_BUFFER,O 3 A d f l th, d f a 
00000014" 0915 : "ADDRESS BUFFER ee eee 
0014 1 BUFFER: ; FAO output d oth isc. buff 
00000098 at é .BLKB TEXT_BUFFER ye erate yom mae Mec ian 
09 4 DEVDSC: ; Device name d ipt 
0000 000A 9998 338 .WORD _MAX_DEV_DESIG,0 1+ agape agers 
00000087" GOAG g -ADDRESS DEV_NAME 
00A 8 PROCESS_NAME: 7 P 
53 4D 4F 43 000000A8"910E0000" OAD $59 “TASCID /COMS/ gageaces. 
00000008 OAC 340 PROCESS_NAME_FREE = MAX_PROC_NAME-<.-8-PROCESS_NAME> 
00000087 ita re -BLKB “PROCESS_NAME_FREE 
0B7 2g DEV_NAME : ; Device name buffer 
000000C6 00B7 344 .BLKB MAX_DEV_DESIG+MAX_UNIT_DESIG 
0000000F Bce rf NAME_LEN = 7-DEU_NAME 
00C6 47 DIB: : Device Information Block 
0000 0074 00C6 48 «WORD DIBSK_LENGTH,0O 
OQOO000CE* bore $3 pieaur ADDRESS DiBBOF 
00000142 if 21 " .BLKB DIBSK_LENGTH 
14 33 ERROR_COUNT: ; Cumulative error count at runtime 
00000000 Bie ee -LONG O 
0146 2$ STATUS: ; Status value on program exit 
00000000 Bee 2 -LONG 0 
014A 35 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
00000000 00000000 gieh $ -QUAD 0 
133 6¢ INADDRESS: ; SCRMPSC address storage 
00000000 00000000 136 re -LONG 0,0 
134 65 OUTADDRESS: 
00000000 00000000 Ff $6 -LONG 0,0 
183 os UNI T_NUMBER : ; Current dev unit number 
0000 16¢ $9 “WORD 0 


64-000" 


58 42 4D SF 


00000000 


VAX/VMS UETP DEVICE TEST FOR pmc/SmR’ 
Read/Write Data 


4 
0000 


00000000 
00000000 


00000172 


0000 
44444 17° 
00000001 
00000 


0000 


00000007° 
00000190" 


43 4D 44 
00000007 


0000 
00000000 
00000000 
000001AD 


00000185 


a Boh ad a 
DOO Yr SPP PPP FP OOOO 0000 OO 000000 09 09 09 09 09 0909 SI NII NNO AAA AAA AOAD 


00000385 


00000585 


00000635 


DAA AAMIMIMVIMNIS © OF UUM 9 9 §: OD DO NNN NNO OOM WOOD A AAPM SB HPoHPIM MM > & POO 
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71 DEVNAM_LEN: 
-WORD 0 
74 ITERATION: 
75 -LONG 0 
iS 
77 PASS: 
f -LONG 0 
0 MSG_BLOCK: 
1 -BLKB 4 
: EXIT_DESC: 
4 mE N 0 
5 .ADDRESS EXIT_HANDLER 
$? SADDRESS STATUS 
39 ARG_COUNT: 
is -LONG 0O 
38 MBX CHAN: 
93 -WORD 0 
95 XMMBX_DESC: 
36 -LONG MBX_LOGNAMSIZ 
4 LONG MBXCOGNAM 
99 MBXLOGNAM: 
490 -ASCII = /DMC_MBX/ 
49 MBX_LOGNAMSIZ = .-MBXLOGNAM 
the XM_CHAN: 
49 -wORD 0 
407 DEVCHAR_BLK: 
40 . QUAD 
EF _MASK: 
.LONG 0 
XM_IOSB: 


RECV_IOSB: 
-BLKQ 1 


XMIT_BUF : 
.BLKB -MAX_MSG_LEN 


RECV_BUF : 
-BLKB MAX_MSG_LEN 


MBX _BUF : 
-BLKB MBXSIZE 


NOUS WN (OOO NOUS WO O00 
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ee 


UVETP.SRCJUETCOMSOO.MAR; 1 
Current device name Length 


# of times all tests were executed 
Pass count 
Auxiliary SGETMSG info 


Exit handler descriptor 


Argument counter used by ERROR_EXIT 
Associated mailbox channel 


Mailbox logical name descriptor 


Mailbox logical name 


DMC/R channel 

Device char block 

Mask for EFN wait 

Q10 10 status block 

Q10 read message 10 status block 
Transmit buffer 

Receive buffer 


mailbox fuffer 
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2 428 BAD_DATA: ; Received wrong data 
00 2 -BYTE 0 
431 GOOD_DATA: ; Data sent (good) 
00 ? -BYTE 0 
7 434 
637 435; 
f ? § : Head of self-relative UETP unit block queue. 
637 4 8 ; -ALIGN QUAD 
3 440 UNIT_LIST: ; Head of unit block circular List 
00000000 00000000 06 441 -QUAD 0 
rt rk 


NEW_NODE: ; Newly acquired node address 
-QUAD 0 


4 
00000000 00000000 0640 444 


lag 


00000776 


ee eo oe ee oe ne oe ww wwe loo lolololololeololo) 


00090909 09 0009 09 C9 G9 CO CO COCO OO CIO CICODOA POOOMAAAMAAAAAOAAAOAY 


4s 
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~SBTTL mn -32 Data Structures 

SALIGN LONG 
SYSIN_FAB: 

$F AB- 

FNM = <SYSS$INPUT> 
SYSIN_RAB: 

SRAB- 

FAB = SYSIN_FAB,- 

ROP = PMT,« 

PBF = PROMPT,- 

PSZ2 = PMTSIZ.- 

UBF = DEV_NAME,- 

USZ = NAME_LEN 
INI_FAB: 

$FAB- 

FAC = <GET,PUT,UPD>,- 

RAT = CR 

SHR = <GET,PUT,UPI>,- 

FNM = <UETINIDEV.DAT> 
INI_RAB: 

$RAB- 

FAB = INI_FAB,- 

RBF = BUFFER,- 

UBF = BUFFER.- 

USZ = REC_SIZE 
DDB_RFA: 

.BLKB 6 

.ALIGN LONG 
SUP_FAB: 

$F AB- 

FAC = GET,- 

SHR = <UPI,GET>,- 

RAT = CR,- 

FOP = UFO,- 

FNM = <UETSUPDEV.DAT> 


Bete te Ge 


DUMMY _F AB: 
SFAB 


DUMMY _RAB: 
$RAB 


Puamy FAB and RA 
The following FAB and RA 
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RSZ = WRI 
USZ = 


t 80538388 


AX/VMS Macro V04- 
UETP.SRC 


; Allocate FAB for SYSSINPUT 


Allocate RAB for SYSSINPUT 


Allocate FAB for UETINIDEV 


Allocate RAB for UVETINIDEV 


RFA storage for INI_RAB 


Allocate FAB for UETSUPDEV 


B to copy to the UETP unit blocks 
must be contiguous and in this order! 
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YETCOMSOO VAX/VMS UETP DEVICE TEST FOR DMC/DMR 16-SEP-1984 01:39:4 AX/VMS Macro Vv04-00 Page 1 
Vbe5000 Main Program iets See ert: LUETP. SRC GETCOMSOO MAR: 1 . ( 
5 0 -SBTTL Main Program 
0000 i "PSECT COMS,EXE -NOWRT ,PAGE 
-DEFAULT DISPLACEMENT, WORD 
é 3 Start up the DMC/DMR test. 
0000 43 -ENTRY UETCOMSO0, “M<> ; Entry mask 
6D O9CO'CF ODE 5 10 MOVAL SSERROR, (FP) ; Declare exception handler 
$9 11 SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 
1? 1 SOCLEXH_S DESBLK = EXIT_DESC ; Declare an exit handler 
S016 14 SOPEN FAB = SYSIN_FAB,- ; Open SYSSINPUT 
018 15 ERR = RMS_ERROR 
O2A 1 SCONNECT RAB = SYSIN_RAB,=- ; Connect RAB to SYSSINPUT 
O2A 1 ERR = RMS_ERROR 
02. €1 44 ) 18 BBC S*#DEVSV_TRM,- ; BR if SYSSINPUT is NOT a terminal 
1E 0688'CF 038 519 SYSIN FAB+FABSL_DEV, 10S 
OO3F 0 STRNLOG_S LOGNAM = CONTROLLER, - ; Allow terminal user to specify... 
89 F 1 RSLLEN = DEVNAM_LEN,- ; ...a Legos name... 
O3F § nay = DEVDSC 3 «efor the controller to test 
01 50 O01 boas 5 CMPL RO,#SS$_NORMAL ; Was a controller specified? 
2— «13 0058 3 4 om BEQL § PROC_CONT_NAME ; BR if it was - go process it 
Bnep 5 8 $GET RAB = SYSIN_RAB,=- : Read SYSSINPUT... 
05>0 «65 ERR = RMS_ERROR 3 ...for the controller name 
O6BA'CF BO 006 8 MOVW SYSIN RABFRABSW_RSZ,- ; Save the name Length 
0164'CF 88 9 DEVNAR_LEN 
16 0 0 BNEQ PROC_CONT_NAME ; BR if we got sonething 
O146'CF 14 : 1 MOVL #SS$"BADPARAM, STATUS ; Save an exit status if not 
00C4'CF A ¢ PUSHAL NO_CTRLNAME ; Prepare for message... 
01 3 5 PUSHL 3 «..arg count 
00741132 8F : 4 PUSHL #UETPS_TEXT!STSSK_ERROR ; ...signal name 
03 6 5 PUSHL 3 «.-arg count 
OAE5 4 5 § BRW ERROR_EXIT 3; «--go tell of bad setup 
88 ; 8 PROC_CONT_NAME: 
0O98'CF 0164'CF 39 MOVZWL 4 DEVNAM_LEN,DEVDSC ; Set the device name Length 
0098 'CF 9 279 PUSHAL DEVDSC ; Make sure... 
0098'CF 9 41 PUSHAL DEVDSC 3 «that the specified controller... 
yeaa 949 8 2 9A $s CALL a ‘Seusereay 3 .e-18 all uppercase for Later comaparison 
5 64 $5 1 Al 4 ADDL #1 ,DEVDSC,R ; Estimate the eventual... ES 
AO'CFE 52 A? 544 ADDW2 R2,PROCESS NAME > .e-process name length (incl. *'_"") 
OAC 545 MOVAL PROCESS _NAME+8~- ; Locate first available byte... 
AD 6 +MAX_PROC_NAME- i «eeiM process name handle... 
50 OOAC'CF AD 4 ~PROCESS_RAME_FREE,RO ; ...for device name 
1 48 SUBL3 #PROCESS_NAME_FREE,- ; WiLL the device name fit... 
51 4 a“ the remaining space? 
50 BLEa=s«10$ : BR if it will 
50 1 51 SUBL2 R1,R0 ; Overwrite handle otherwise... 
OOA0' CF F § 108 Vi #MAX_PROC_NAME ,PROCESS_NAME ; ...and define the maximum Length 
80 5F BF F 4 MOVB #*A/_/,(RO)+ ; Separate handle from device name 
60 OOB7'CF 0098'CF 3 5 MOVC3 DEVDSC,DEV_NAME, (RO) 3 pencatenete handle with device name 
7E B 56 CLRL -(SP) ; Set the time stamp flag 


VAX/VMS UETP DEVICE TEST FOR DMc/DMR” 16-SEP-1984 01: AX/VMS_M 969 v04- Page 15 
Sr8Ep=19be Quizesed 


Main Program VETP.SRC SET coms «MAR; 1 (6) 
OOOF'CFE OF a) 7 PUSHAL I ST_NAME t fet the test rame 
2 oD D 8 PUSH h_ the argument count 
890° 741 1059 F ODD i) PUSHL HUETPS rreseieuae - succkss Set the message code 
00009 e F D 60 CALL LL Print the startup message 
0 8 A E 61 B1SW PeeeIN MSGM, FLAG ; Se flag so we don't print it again 
E 6¢ SSETPRN_S PRCNAM = PROCESS_NAME : Set the process name to UETCOMS O_x 
02 E1 F 64 BBC aA ; BR if SYSSINPUT is NOT a terminal 
66 6688'CF F 65 SYS ray DEV 208 
. 66 SGETOVI_S DEVRAR = 1 ; Get the name of.. 
F 6 FN = #Ss SYNCH’ EEN. 3 «e-device which may abort test 
: 63 ITMLST = = BMAD STATUS. 
45 O14A'CF €E9 011 0 BLBC QUAD_S STATUS os~ 3; Avoid CTRL/C handler if any error 
11? 4 SASSIGN_S DEONAM = = SUFFER _PTR,- ; Set up for CTRL/C AST handler 
1 : ie $Q10W_S CHAN = i CHAN Enable CTRL/C AST's... 
oi 8 ie FUN C = He Sone silt! CTRLCAST,= 
= 
OOAO'CF +4 a1t9 278 0 reel poocess NAME : «--and tell the user... 
00748328 8F DD O14F 578 PUSHL fyeres peerie ieee success} 3; «--how to abort gracefully... 
OOO000000'GF 03 FB Biae 44 208 CALLS G*LIB$SIG ee 
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00000978 &F 39 


56 O1SE*CF O15A'CF 


00000000° 
0014'CF 


OO14°CF 4 


6E 
0146'CF 


OOB7"CF OO1A'CF 0164" 


O770°CF O73C°CF 
Q0O18°CF 54 


Moore foo 
“Ons CLM 


0146'CF 
000C 
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; 3; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which gives controller 
4 ; and unit configuration and lets us know if the setup to run this test was 
5 ; done correctly. 
5 SOPEN FAB = INI_FAB,- ; Open file "UETINIDEV.DAT’ 
8 ERR = RMS-ERROR 
SCONNECT RAB = INT_RAB,- : Connect the RAB and FAB 
590 ERR = RMS-ERROR 
71 SMGBLSC_S INADR = INADDRESS,- ; Connect to UETSUPDEV global section 
36 RETADR = OUTADDRESS,- 
9 GSDNAM = SUPDEV_GBLSEC,- 
94 FLAGS = #SECSM_EXPREG 
595 CMPL RO ,#SS$_NOSUCHSEC ; Was the section already there? 
96 NEG 308 : BR if it was... 
9 SOPEN FAB = SUP_FAB,- j «else open ‘UVETSUPDEV.DAT"’ 
98 ERR = RMS~ERROR 
9 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV.= ; Create the global section 
600 INADR = INADDRESS,=- 
601 RETADR = OUTADDRESS,- 
60¢ GSDNAM = SUPDEV_GBLSEC ,~ 
ORT 303 FLAGS = #SECSM_EXPREG! SECSM_GBL 
oR? SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
607 FIND_IT: 
608 $GET RAB = INI_RAB,- ; Get the first record 
609 ERR = RMS-ERROR 
610 PUSHAL CONT_DESC ; Make sure... 
611 PUSHAL CONT DESC i «+-that the controller name... 
ol¢ CALLS #2,G*STRSUPCASE $ eoetS all uppercase letters 
61 CMPB #*A/D/ BUFFER : Is this a DDB? 
614 BEQL 10$ 3; Go on if not 
615 CMPB #*A/E/ BUFFER : Is this the end of the file? 
616 BNEQ FIND If : Continue on if not 
61 PUSHAL DEVDSC ; Push device not supported message 
618 PUSHAL PROCESS_NAME ; Parameters on the stack 
619 PUSHL # 
620 PUSHL #UETPS$_DENOSU 
621 INSV #STSS$K_ERROR,- 3; Set the severity code... 
6 . #STSS$V~SEVERITY,- 
6 #STS$S_SEVERITY, (SP) 
624 MOVL (SP) ,STATUS 3 ...and save it as the exit status 
625 PUSHL #4 
? § 108 BRW ERROR_EXIT 3; Exit in error 
e 8 a DEVNAM_LEN,BUFFER+6,DEV_NAME 3 is this the right controller? 
3 no 
630 MOVC3 #6, IRNI_RAB+RABSW_RFA,DDB_RFA ; Save the Record File Address 
631 CMPB #°A/T/7BUFFER+4 ; Can we test this controller? 
6 : BEQL _—- FOUND fT ; BR if we can... 
6 SFAO_S CTRSTk = DEAD _CTRLNAME,- ; ...and yell at user if we can't 
634 OUTLEN = BUFFER_PTR,=- 
635 OUTBUF = FAO BUF,- 
6 $ P1 = #DEVDSC 
6 MOVL #SS$_BADPARAM, STATUS ; Set return status 
638 PUSHAL BUFFER_PTR 3 ccc 
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Main Program 
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WANA 
PP PWNINNIN 


$GET 
PUSHAL 


BSBW 


SGETDEV_ 


MOVZBL 
MOVZBL 
$FAO_S 


MATCHC 
BEQL 
$FAO_S 


P=19 
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#1 ; 
#UETPS_TEXT!STSSK_ERROR ; 


ERROR_EXIT 


UPCASE 


NMBRWRROOMD 


= 

> 
Pd 
~ 
m 
~ 
@ 
i 
al 
nm 
m 
Pe) 


~ 
oOo 


ILLEGAL _REC 
#UETPS_TEXT!STSSK_ERROR 
ERROR_EXIT 

ALL_SET 

#*A/T/ ,BUFFER+4 

FOUN 


D_iT 


#2 
UNIT NUMBER 
#4, G®OTSSCVT_TI_L 


R 
wh) / ,#MAX_UNIT_DESIG,- 
BUFFER+6 


RO 

#*A/0/,R0,(R1) 

RO, ae LEN, DEVDSC 
DEVNAM_LER,R2 

RO, (RIT. DEV _NAME (R2) 


START_DEV 


S DEVNAM = DEVDSC,- 
PRIBUF = DIB 

DIBBUF +DIB$B_DEVCLASS.R7 ; 

DIBBUF +DIB$SB_DEVTYPE,RS ; 

CTRSTR = CS17- 

OUTBUF = FAO. BUF ,- 

P = R7,- 

P = RB 

! {BUFFER,R6, @OUTADDRESS: ; 

CTRSTR = CS3,- 

OUTBUF = FAO BUF,- 


0 Pa 
ATP SRCIUETCOMSOo-mAR:1 oa 


: We can't test what we can't test 


Get a record 


Make sure... 
~eethat this line... 
is’ thig aU epaarenes letters 


Is this a DDB? 


BR if yes 


; Then this is an error in the record 
; Push the error message 

; Push the signal name 

; Push the temp arg count 

; Finish for good 


3; Found DDB or END 
3; Is the unit testable? 
if not 


; Flag to ignore blanks when converting 
; Set byte size of results 

Set address to receive word 

Push string address 

Convert ASCII malt sg # to a 

Don't allow bogus unit to pass 
: Pind out where unit number really is 


; Units must all be at least one digit 
3; Skip Loading zeroes 7 the unit 

; Compensate for DECL above 

3; Calculate device'unit string te Length 
3; Offset to unit number in 

3; Append unit number to device 


; Assign channel and start the device 
; Get the device characteristics 


Save the device class 
“Save the device type 


t into a string 
mane the device class and type 
; BR if it was found 
:; Try for full class support 


i 


la 
OISA'DF «56 8 0014'°CF 66 
arth 2K 

0098' 


QOA0* 
00748333 


CF 

CF 

2 

2 

0 

6E 03 
Q146'CF 6E 
04 
E2 


07 
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Main Program 
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WN OVOONOAUS Wir 


~Oo 


Sal 
o 
ow 


MATCHC 
NE 


“SEP=1 
Pi = R7 
SG ,BUFFER.RG.QOUTADDRESS ; 


TES AME ,RS 
stad) Test. NAME +8 
80g 


OR 
#STSSV-SEVERITY, 
#STS$S~ SEVERITY, (SP) 
(SP) ), STATUS 


ERROR_EXIT 


UETP.SRCJUETCOMSOO.MAR; 1 ( 


fing the device class only 
f not found 


Get the test name Length 
2 the right test? 
bx if yes 


Push device not Susgersed message 
Parameters on the st 
Push the argument toe 


Set the severity code.. 

.and save it as the exit etatue 
Push the pert ies arg count. 

-.and split this scene 


— sss 


_ 


<c 
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E 15 ;+ 
E af ; The following code dynamically tee gy Pens memory ne a unit bloc 
E 717 ; a fevice dependent parameter area and ers. The unit block is Tetoveed 
E £8 3; into the queue header UNIT_LIST. It then initializes the unit block. 
E 719 ; A comment indicates where Ehe device dependent parameters should be 
: 4 9 ; initialized. The unit block format is as follows: 
0 E 7 ¢ 3 bummer new moma mam + eeece oo 
8 © ¢e35; UETUNTSL_FLINK ! ! * 
38E 7 4 $ $woeeeceececcocea + ' 
O38E 725; UETUNTSL_BLINK ! ! ! 
8 3 7 § 3 tema men senna pean > ' 
. tar 3 UETUNTS$B_TYPE ! ! ! 
0 BE 7 8 3 ene eoee deans ! 
O38E 729; UETUNTS$W_SIZE ! ! ! contains DEVDEP_SIZE + UETUNTS$C_INDSIZ 
0O38E 7 0 . teeetoeoenese + ! 
O38E 731; UETUNTSB_FLAGS ! ! ! 
O38E 136 3 ¢eens pose reas + ! 
O38E 733; UETUNT$W_CHAN ! ! ! { 
O38E 734 : $eececcn $eceeecce + ' 
Oaee t3 3 UE TUNT$W_FUNC ! ! ! ! ntante size 
2 ewenreece Pe me mace S t¢mocece 
038E 38 ; UETUNTSL_ITER ! ! ! = 
O38— 738: Daciaismanianishrnintin + i 
O38E 739; UETUNTST_FILSPC ! ! : 
O38E 740; LIMA/\IN/LVA/ ! 
O38E 741; NAMS$C_MAXRSS bytes ! 
038E rg : WINASAVIVIVAY; /! ! 
O38E 743; : ! ! 
O38E 744; UETUNTSK_FAB | enmmmmnnnnnnnn= i ! 
O38E 745; ! ! { 
O38E 746 ; PNAYATAVAYAYAUE ! 
O38E 747; FABSC_BLN byt ! 
O38E 748; YNIRINI\D ier ‘ 
O38E 749; ' ! ' 
O38E 750; UETUNT$K_RAB teoeeroroen----- + ! 
O38E 751; } ! ! 
038E O36 3 INVJV/\VA\V/NVAN\/NAN! ! 
O38—E 753; RABS$C_BLN bytes ! 
O38E 754; INA\/NTV\/NANZNIN ! 
O38E 755; : ! v 
Base 756 % UETUNTSK_DEVDEP beset ewe ee eee oes + eeeeeecen 
See 40 6for 8 ' ' * 
Oaee 038 s INJIVIVJV/NV/N/NVAN! ' 
© 993 user defined terere DEVDEP_SIZE 
38E 760; INJV/\I\ININVANAN ! 
- i) mens ' ! v 
E 76 | ¢ emer araeme ren ase + wsecececececa 
ress READ/WRITE suffers ! ! . 
38E 764; SAYAVAVAYAYAVAL ! 
38E 765 ; r defined teoo-- WRITE_SIZE and READ_SIZE 
b3 © 766 : AAAI ! 
e 767 3 ! v 
8 E 76 $ + weececeeooecececen + ececeece 
& 69 ;- 
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E 771 608: 
bE oe SEXPREG_S eeetay = #PAGES,- ; Get a new node of demand zero memory 
Be RETADR = NEW_NODE 
0638'CF 0640" DF 5D O39F 77% Insati @NEW_NODE YNITILIST 3 Put the new node in the unit List 
56 0640'CF p09 A675 MOVL wW RODE.R : Save a copy of its address 
08 A601 AB £06 MOVE  #1,QETUNT$B_TYPE(R6) : Set the structure type 
O1AG 8F BO O3AF 77 MOVW  #UETUNTSC 1NDSIZ+DEV VDEP_ $1 1ZE,- 
09 A6 33 oe UETUNTS$W S126 (R ) et the structure size 
14 AG 0098'CF 30 B5 77 MOVB. _ DEVDSC UETUNTST. FILSPC(R) ; Set the device name size 
OO9C'DF 0096"CF 2 BB 780 MOVC3 DEVDSC,aDEVDSC+2,= 
15 A6 C2 781 UETUNT$T_FILSPC+1(R6) =; Save the device name 
994 8F 28 03¢ f ; MOVC3 #FABSC_BCN+RABSC_BLN 
0110 ¢ C8'CF 8 DUMMY _FAB,UETUNTSC OF ABCRED ; Save a FAB and a RAB away 
5 110 C6 ODE 0 ce 784 MOVAL UETUNTSK_FAB(R6) ,R7 ; Save the FAB address 
58 016 £8 43 D 785 MOVAL STUNT aK RAB(R6) ,RB ; Save the RAB addres 
3c A8 DO 0308 786 MOVL R7,RABSL_FAB(RB) : Set the FAB edaress in the RAB 
14 A6 90 O3DC 787 MOVB UETUNTSTE FILSPC(R6) - 
34 A7 O3DF 788 FNS(R7) : Set the FNS field in the FAB 
15 AG DE O3E1 789 MOVAL UETUNTST xf SPC+1(R6),= 
2C A? te oy FABSL_FNA(R7) ; Set the FNA field in the FAB 
bee ee ; Set the device dependent parameters in here 
FE9O0 §«=631 «(03E6) = 794 BRW FOUND_IT ; Do the next UCB 


[ee 
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UE CORROO VAX/VMS UETP DEVICE TEST FOR DMC/DMR yt dt 
V Main Program “SEP=1 


QT: 9:48 VAX/VMS Macro ¥O4~00 
4:24:49 CUETP.SRCJUETCOMSOO.MAR; 1 (10) v 


E 796 ; 
E 539 ; Arrive here when we have the device configuration. In normal or loop forever 
E9 £38 ; mode, set a timer far enough in the future such that we can do a reasonable 
E9 99 ; set of tests before the timer expires, but if our device gets hung, the 
€9 00 ; program won't waste too much time before noticing. Let one-shot mode be a 
3 0 3; special case. 
E9 : ALL_SET: 
0638'CF D5 E9 04 TSTL UNIT_LIST ; Anything to test? 
1” it ED b BNEQ 0$ ; BR if yes 
Ot2B'CF DF OSEF 6 PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
1 OD Fe ti PUSHL 3 «+-argument count... 
00741132 8F DD F 8 PUSHL GUE TPS TERT LSTSOR ERROR ; «--Signal name... 
03 DD FB 09 PUSHL # 3 «+-8Nd parameter count 
O1G6'CF 14 0 O3FD 10 MOVL #SS$_BADPARAM, STATUS ; Set return status 
0768 1 re 1] ‘— BRW ERROR_EXIT ; «and give up, complaining 
0002'CF 04 0405 518 BISW2 #SAFE_TO_UPDM,FLAG ; OK safe to update UVETINIDEV.DAT now 
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Vias000 Test the DMC/DMR ee 4 046:26:4 UETP.SRC SEScOMsOn MAR; 1 ° dj 
rt : F -SBTTL Test the DMC/DMR 
40a BI? START_TEST: 
40A 18 $Q10W_S - 3 Enable attention AST 
4OA 1 CHAN = XM_CHAN 
4OA 0 FUNC = #10$ at ineeei seen. ATTNAST,= 
40A 1 10SB = XM_I0SB,- 
40A g ASTADR = CHK af0 _AST,= 
40A ASTPRM = #PRA,- 
r ¢ ¢ Pl = XM_ATTN _AST 
4 § STRNLOG_S L Gener = MODE ; Get the run mode 
4 RSLLEN = BUFFER PTR,- 
tie 8 RSLBUF = FAO BUF 
014'CF BA ded 0 Bice #LC_BITM, BUFFER ; Convert to upper case 
OO14'CF 4F gp 31 rh 831 CMP #°A70/ ,BUFFER : Is this s ene shot! 
is 0459 536 a NEG ; BR oy 
O0O2'CF 0 A8 0458 3 B1ue ALS) _OVERM, FLAG 3: End alter one Usaretion 
0002'CF 10 AB 0460 834 BISW2  #MODE-IS gonen. FLAG : Set mode is ONE’ flag 
001 31 ret $32 ares XMIT_RECO : Skip the 3 min timer 
0468 637 SSETIMR_S DAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 
0468 38 ASTADR = TIME_SUC_OUT ; The test will do xmit/recv for about 
0478 839 : 3 minutes 
047B 840 XMIT_RECV 
52 AA 8F 9A 0478 841 MOVZBL cue Re ; Random number 1 
53. 2E 9A O47F HG) MOVZBL #*X2E 3 Random number 2 
57 00000200 8F 00 ot $3 az 108 MOVL #MAX Eas _LEN,R7 ; Maximum message Length 
56 O1BS'CF ODE bc89 He MOVAL XMIT_BUF,R6 3; Transmit buffer address 
54 57 00 peer aes _ MOVL R7,R& ; Message length in bytes 
52 53 CO 0491 848 ADDL2 = R3,R2 3; Random number 
86 52 90 Be3s 849 MOVB R2,(R6}+ 3; Fill in the transmit buffer 
F7 54 «OFS 8H S20 SOBGTR R4,15$ ; Branch if more bytes to be filled 
049A $26 SSETIMR_S - ; Set up one minute timer prevent hung 
049A 8 “DAYTIM = ONEMIN,- 
049A 854 ASTADR = TIME _ERR_OUT,- 
nae $2? REQIDT = #RW_TIME_ID 
58 10 00 Beat S2f 208 MOVL #LIMIT,R8 ; Loop 100 times for each msg length 
4B 59 $Q10_S - ; Have a read data message outstanding 
4B 60 EFN = #RECV_EFN,- 
4B 61 CHAN = XM_CRAN 
48 B6¢ FUNC = #10$ "READVBLK, - 
4B 6 10SB = RECV-10SB 
4B0 864 ASTADR = RECV_ASt~ 
re 65 ASTPRM = R/7,- 
4B r¢] Pil = BG CV BUF 6° 
4B 6 P2 =R 
4D oe = 
407 ° $Q10W_S - ; Transmit data message 
407 0 EFN = #XMIT_EFN,- 
407-871 CHAN = XM_CRAN,- 
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Vv £808 Test the DMC/DMR mitt 8) :32:28 YUETP SRC SES CUMSOOOMAR: 1 ° i 
407 % FUNC = #10$_WRITEVBLK,-=- 
407-87 10SB = XM_I0SB,- 
aoe 74 Pl = XMIT_BUF,- 
rit ie P2 = R7 
0268 30 ue 7 BSBW CHECK_IOSB 3; Check 10 status block 
ofp hi SWAITFR_S EFN = #RECV_EFN ; Wait until data received 
oreerce 06 506 1 INCL ITERATION 3; Increment iteration count 
A3 58 =F : 5 ¢ SOBGTR R8,20$ 3; Loop for 10 times 
50D 4 SCANTIM_S - ; Cancel hung timer 
B208 , 5 REQIDT = #RW_TIME_ID 
0002'CF 02. #63 0318 Hy BITW #TEST_OVERM,FLAG :; Is the test over? 
09 if 51D 888 BNEQ _TEST : BR if yes 
03 57 «OF Beit 88 SOBGTR : For different message Length 
FF56 31 5 : 890 BRW XMIT_RECV : Try again 
FF61 1 3 H 4 30$: BRW 10$ 
0528 38 : Introduce an attention condition to see if attention AST delivered and mailbox 
be 8 B3e 3; receive appropriate message. 
09 : 896 ATTN_MBX_TEST: 
05 4 898 SSETIMR_S - ; Set up one minute timer to prevent hung 
05 899 DAYTIM = GNEMIN,- 
05 8 900 ASTADR = TIME ERR_OUT,- 
05 8 901 REQIDT = #TIME_ID~2 
03 0002'CF 04 4 0538 308 BBC #MODE_IS_ONEV,FLAG,10$ ; Br if mode is not ‘'ONE’’ 
0084 1 oeea one 108: BRW CLEAN_EXTT 
0544 906 j $Q10_S - ; Have an outstanding read mailbox message 
0544 907 CHAN = MBXCHAN,- 
beee 908 FUNC = #10$_READVBLK,- 
544 909 10SB = 16S8,- 
Bet 310 ATR Superb ast 
0344 91g P2 = #MBRSIZE 
0002'CF 20 As O36 aie BISW2 M#TEST_ERRM,FLAG ; Set flag say it's error test 
$354 218 $Q10_S - ; Send message without read request outstand | 
574 91 CHAN = XM_CHAN,- 
574 98 FUNC = #10$ WRITEVBLK,- 
574 91 I0SB = XM_10SB,- 
574 9320 Pl = Ant BUF 
ate 4 1 P2 = #128 
O1A1'CF 000000CO 8F D0 Hy 4 9 MOVL #MBXAST_DELM!ATTN_DELM,EF_MASK ; Set up mask for EFN wait | 
5A4 é 5 SWFLAND_S EFN = #MBXAST_DELV.- ; Wait for MBX AST and ATIN AST delivered 
BA 3 : MASK = EF_MASK 
561 928 SCLREF_S EFN = #MBXAST_DELV | 
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VAX/VMS UETP DEVICE TEST FOR DMC/DMR 
Test the DMC/DMR 


SCLREF_S EFN = #ATTN_DELV 


AX/VMS Macro V04é- 


"B7Sep=198c basdc:co LOeTP SRC SUES CORSON MAR: 1 


BICW2 #TEST_ERRM,FLAG ; Clear error test flag | 
CLEAN_EXIT: 
$Q10W_S - ; Disable attention AST 
CHAN = XM_CHAN,=- 
FUNC = #10$_SETMODE! 10SM_ATTNAST,- 
10SB = xXM_10S8,- 
Pi = 0 
BSBW CHECK_1I0SB ; Check IO status block 
BICW2 #FLAG_SHUTDNM,FLAG ; Clear the shutdown flag 
$Q10W_S - ; Shut down the device 
CHAN = XM_CHAN,- 
FUNC = #10$_SETMODE! 10SM_SHUTDOWN, - 
10SB = xmM_10SB,- 
P1 = 0 
BSBW CHECK_IOSB : Check 10 status block 
SCANTIM_S REQIDT = #TIME_ID_2 ; Cancel timer 
SUC_EXIT: 
STRNLOG_S LOGNAM = MODE,- 
RSLLEN = BUFFER_PTR,- 
RSLBUF = FAO BUF ; Get the run mode 
BICB2 #LC_BITM,BUFFER ; Convert to upper case 
CMPB #*A7L/ ,BUFFER : Is this a loop for ever? 
NEQ ; BR if not 
BICW2 #TEST_OVERM,FLAG ; Reset the termination flag 
INCL PASS ; Bump the pass count 
SFAO_S CTRSTR = PASS_MSG,- 
UTLEN = BUFFER PTR,- 
UTBUF = FAO _BUF,- 
P1 = PASS,- 
P = ITERATION,- 
a = #0 ; Make the end of pass message 
PUSHAL BUFFER_PTR ; Push the string desc. 
PUSHL #1 ; Push arg count 
PUSHL av ite TEXT!STSSK_INFO ; Push the signal name 
CALLS #3,G*LTBSSIGNAL ; Print the end of pass message 
CLRL ITERATI ; Reset the iteration count 
BSBW START_DEV ; Restart the DMC/DMR 
108 BRW START_TEST ; Do the next pass 
ADDL #UNIT_LIST,UNIT_LIST,R6 ; Set the unit block List header 
BISB URTSM_ TESTABLE, - 
ETUNTS$SB_FLAGS(R6) ; Set the testable bit 
MOVL #SS$ NORMAL! STSSM_INHIB_ASG, STAT S ; Set successful exit status 
SEXIT_S STATOS ; Exit with the status 
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Vv 800 STARTDEV = Assign channel and start the i ea bbe 83 4:4 UETP.SRC SETCOMSOD. MAR; = (3) 


] 
| 
AD 4 Poa -SBTTL STARTDEV = Assign channel and start the device 


AD 3* 
6AD 4 8 : FUNCTIONAL DESCRIPTION: 
4 886 5 This routine assigns channel, mailbox and start the device 
6AD 991 ; CALLING SEQUENCE 
6AD 338 3 BSB START DEV 
6AD 9935; 
6AD 994 ; INPUT PARAMETERS: 
6AD 995 ; NONE 
GAD 996 
6AD 4 ; IMPLICIT INPUTS: 
6AD 3 3 NONE 
6AD 999 ; 
O6AD 1000 ; OUTPUT PARAMETERS: 
Q6AD 1001 ; NONE 
Q6AD 1 6 ; 
6AD 198 ; IMPLICIT OUTPUTS: 
6AD 1004 ; Exit with status if error 
Q6AD 1005 ; 
Q$AD 1908 3; COMPLETION CODES: 
Q6AD 1007 ; Error code of system service if error 
Q6AD 1008 ; 
QO6AD 1009 ; SIDE EFFECTS: 
Q6AD 1010 ; Program exit if error 
O6AD 1011 : 
O6AD O18 :o- 
O6AD 1013 START_DEV 
Q6AD 1014 SCREMBX * ; Create and assign channel mailbox 
06AD 1912 “CHAN = MBXCHAN,- 
O6AD 1016 MAXMSG = #MBXSIZE,- 
O6AD 1017 BUFQUO = #MBXSIZE,- 
O6AD 1018 LOGNAM = XMMBX_DESC 
O6CE 1019 
O6CE 1020 S$ASSIGN_S - ; Assign channel to the device 
O6CE 1021 DEVNAM = DEVDSC,- 
OQ6CE 8 ¢ CHAN = XM_CHAN,~ 
Oees : Z MBXNAM = XMMBX_DESC 
50 E8 O6E 10 5 BLBS RO,10$ ; BR if no failure 
50 00 O6E&6 1026 MOVL RO,STATUS 3; Save the failure status 
CF DD 06EB 19 7 PUSHL STAT ; Push the error code... 
CF DD O6EF 1028 PUSHL STATUS 
ss te 18 9 PUSHAL DEVDSC -and the device _ Ses tgnat thins 
CF OF 6F 1050 PUSHAL yest- NAME -+-and the test name... 
03 OD O6FB 1031 PUSHL # and the arg count. oe 
8F DD O6F 10 ‘ PUSHL  #UETPS_DEUNUS! STSSK -ennok 3 ; .eeand the signal name... 
06 D 8 8 18 PUSHL #6 : t..and the total argument count... 
6 1 Q7 1034 BRW ERROR_EXIT ; «.-.and bail out completely 
708 1 35 108: 
CF 43 4 1 $ MOVAL DEVCHAR mee Ms : Address for max msg Longem 
8F 70D 1 3 MOVW #MAX_MSG_LEN, ( Maxim message Longer 
12 0 O712 1 MOVB AXRSA CHR LEP ET XRSM. CHR. MBX, Ni ) ; Set loop Back mode in char and 
4 40 7 enable the associated mailbox 
71 1042 “DAYTIM = ONEMIN,- 


SSETIMR_S - ; Set up one minute timer to erevent hung 
| 
| 


VO4-008" 


0002°CF 


0040 8F 


A8 
05 


‘TP DEVICE TEST FOR pnc/bmn” 197-360-1382 8 
Assign channel and start the -SEP-1984 
ASTADR = TIME_ERR_OUT, 
44 REQIDT = #TIME_ID-1 


Wn & & 


10S8 
ASTADR = CHK af0 _AST,= 
ASTPRM = #P 
Pi = DEVCHAR, BLK,- 
P3 = 8 
SCANTIM_S REQIDT = #TIME_ID_1 
BISW2 “#FLAG_SHUTDNM,FLAG ~ 
RSB 


a a ss St 


pejejojejejo) 
MAA 
NAUSEA OOQINOUE Wt 


239:4 AX/VMS Macro V04- 
124:4 UETP.SRCJUETCOMSOO.MAR; 1 


3; Start the device 


xm CHAN - 
FUNC = #10 SE FMODE ! 10$M_STARTUP,~ 


; eg timer 
; Set tog to say shut down the 
3; device if errors occur 


tena’ 
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VBa5000 STARTDEV = Assign channel and start the ~$Fb= 1382 Bh i30:69 LUE TP. SRC GETCOMSOD MAR: 1 = di 

7 1 

i } i -SBTTL CHECKIOSB = Check I0 status block 

7 1 ; "FUNCTIONAL DESCRIPTION: 

oe \ : $ This routine checks the 10 status block = #SS$_NORMAL 

7 1 § 3; CALLING SEQUENCE: 

! 3 BSBW CHECK_10SB 

768 «#1 $3 : INPUT PARAMETERS: 

£6 } ny 3 NONE 

ie | if 3; IMPLICIT INPUTS: 

768 1075; NONE 

768 1074; 

768 1075 ; OUTPUT PARAMETERS: 

768 #1 6 : NONE 

768 1077 ; 

768 «#1 4 3; IMPLICIT OUTPUTS: 

Ores ! $ Exit with status if IOSB not right 
B70 1081 ; COMPLETION CODES: 

ree 10 § 3 10 status in STATUS if error 
0768 1083 ; 
the + 4 ; SIDE EFFECTS: 
0768 1085 ; Program exit if error found 
3708 1e6 3 

768 1087 ;-- 
0768 1088 CHECK_10SB: 

768 1089 CMPW XM_10SB,#SS$_NORMAL 3; Is the QI0 0.K.? 
the 1090 BNEQ 10$ 3; Br if not 

76F 1091 RSB 3; Return 
144 1938 10$: 

770 109 MOVZWL XM etait (SP) ; Push the error status code 
0775 1094 MOVL (SP) ,STATUS ; Set return status 
077A 1095. PUSHL #1 ; Argument count 
077C 1998 BRW ERROR_EXIT ; Error exit 
O77F 109 
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‘ -SBTTL Check Start Unit and Attention AST Q10 AST Routine 
FUNCTIONAL DESCRIPTION: 
This routine will be called as AST routine when Q10 for start unit 
or attention AST is completed 
It checks 10 status block and the AST parameter 


j CALLING SEQUENCE: 
Called via AST at $QI10 SETMODE!STARTUP or SETMODE!ATTNAST 


INPUT PARAMETERS: 
NONE 


~~ 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 


Error message if error 


COMPLETION CODES: 
1G status in STATUS if error 


SIDE EFFECTS: 
Program exit if error 


CVD e Se Se Se Be Se Ge Be Be Be Ge Ge Se Ge Se Ge Se Se Ge Ge Se Se Sse Se Se Se Se se 
‘ aa 


HK_QIO_AS7: 
WORD 


CGOOCCOCOCOCOCOCOOOCO CCC CCOCOCOCOC OOOO OCOCOOOCOOCOOOOOOOOO 
SN 
DODO NNN 

Be we ts i Bs en Be Re Bs Bs Be Ds es Be Be i BB ee es i es i es Bs 
a a kd 
kk kk hd od dt IO 


PANAMA AAA AAI PINONINONPONNINIDD 2 2 9 OO OS SM DOOOOOOOOCOO 


SODNA NE WIN OOD NA NE WIN $ O OD NAME WH  O OONOUE UT" O00 


OFFC . “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 
FFE4 30 BSBW CHECK. 10SB ; Go check 10 — _vteen 
04 AC 00000064 8F D1 CMPL #PRM,SC(AP) ; Check AST param 
01 12 BNEQ 10$ : Branch if not a (STARTUP) 
04 10$ RET 
O293'CF ODF PUSHAL ASTPAR_ERRMSG ; Error message 
01 DD PUSHL #1 ; Arg count 
p979 1152 of 0D PUSHL M#UETPS$_TEXT!STSSK_ERROR ; Signal name 
0146'CF dO 9B OVL (SP) ,STATUS : Set up status 
9 D AQ PUSHL 3 3; Arg count 
03ce 1 A2 BRW ERROR_EXIT ; Error exit 


sel aca = ——e 
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Ve uc000 Receive data AST routine Sets 7 gt: 4:4 UETP.SRC SETCORSOO MAR: 1 . (33) v6 
7A 1168 -SBTTL Receive data AST routine 
7A5 1145 344 
7A 1133 3; FUNCTIONAL DESCRIPTION: 
7A5 1145; his routine will be called as receive data AST routine 
7A 1188 3 It checks 10 status and compare the data in the receive buffer 
gh 12 3 against the transmit buffer 
7A 1148 ; CALLING SEQUENCE: 
A Wey 3 Called via AST at $Q10 READ 
rag 11 ¢ 3 INPUT PARAMETERS: 
Oras V i 3 AST parameter = message length 
7A5 1155 ; IMPLICIT INPUTS: 
07A5 1328 : NONE 
Brae 1157 ; 
O7A 1158 ; OUTPUT PARAMETERS: 
O7A5 1159; NONE 
O7A5 1160 ; 
O7AS 1161 ; IMPLICIT OUTPUTS: 
07A5 1106 3 Error message if error found 
O7A5 1163; 
Q7A5 1164 ; COMPLETION CODES: 
O7A5 1165 ; in STATUS if error 
O7A5 1166; 
O7A5 1167 ; SIDE EFFECTS: 
O7A5 1168 ; Program exit if error found 
O7A5 1169 ; 
O7A5 1170 ;-- 
O7A5 1171 RECV_AST: 
OFFC O7AS 1156 -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> =; Entry mask 
01 O1AD'CE B1 O7A7 117 CMPW = RECV_IOSB,#SS$_NORMAL °; Is the read successful? 
12 O7AC 1174 BNEQ 1 ; Br if not 
54 04 AC DO O7AE 1175 MOVL 4(AP) ,R4 : Message length 
O3B85'CF DE O7B2 1176 MOVAL RECV_BUF ,R5 ; Address of receive buffer 
56 01B5'CF 43 0787 1177 MOVA XMIT_BUF ,R6 3; Address of transmit buffer 
65 54 29 O7BC 1178 CMPC R4,(R5), (RO) ; Compare the data 
10 12 O7¢0 1179 BNEQ 206 : Br if data not match 
04 oe 1139 108 RET ; Return 
7E OUAD'CF 3C O7C 1182 MOVZWL RECV_IOSB,-(SP) ; Push the error status code 
0146'CF 6€ DO O7C8 11 MOVL (SP), STATUS 3; Set return status 
01 4 O7CD 1184 PUSHL #1 3; Argument count 
039E 1 ree 1 2 208 BRW ERROR_EXIT 3; Error exit 
0635'CF 61 90 703 et MOVB (R1),BAD_DATA ; Bad data in the receive buffer 
0636' CF 63 90 07D 1188 MOVB (R3),GOO05_DATA ; The data in the transmit buffer 
70C +1189 $FAO_S - ; Format the output message 
7d0C 1190 CTRSTR = RECV_ERR_MSG,- 
7d0C «(1191 OUTLEN = BUFFER_PTR,- 
70C€ 1136 OUTBUF = FAO_BUF,- 
7DC 119 P1 = GOOD_DATA,- 
roe 1194 P2 = BAD_BATA , 
OOOC'CF DF O7F7 1195 PUSHAL BUFFER_PTR ; Push the string desc. 
DD O7FB 1138 PUSHL #1 3; Push arg count 
00741132 8F DD re 119 PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the signal name 
0146'CF 6E€ DO 0803 1198 MOVL (SP), STATUS 3; Exit status 
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-00 U 
GETCOMSOO MAR: 1 (16) v6 


. ] § oe -SBTTL Check mailbox message AST Routine 
D 1204 ; FUNCTIONAL DESCRIPTION: 
D 1205 ; his routine will be called as AST routine when QI0 for read mailbox 
dD 1 § 3 is completed 
OD 1 ; It checks I0 status block and check message type in the mailbox when 
3 ! 38 $ doing error test 
$ie4 1 3 3; CALLING SEQUENCE: 
ite ! 1} 3 Called via AST at $QI10 Read mailbox 
8808 1 13 3; INPUT PARAMETERS: 
D 1214 ; NONE 
443 1215 ; 
080d 1 1 ; IMPLICIT INPUTS: 
080D 1217 ; NONE 
O80D 1218 ; 
080D 1219 ; OUTPUT PARAMETERS: 
080D 1220 ; NONE 
080D 1221 ; 
Bane 1 § ; IMPLICIT OUTPUTS: 
80D 1 § $ NONE 
O80D 1224 ; 
080D 1225 ; COMPLETION CODES: 
080D 1226 ; STATUS if error 
080D 1227 ; 
O80D 1228 ; SIDE EFFECTS: , 
080D 1229 ; Program exit if error 
080D 1230 ; 
080D 1231 ;-- 
080D 1 3¢ CHK_MBX_AST: 
OFFC O80D 123 «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; entry mask 
FF56 30 O80F 1234 SBW CHECK_I0SB ; Check 10 status block 
11 0002°CF 05 €1 bas 1235 BBC #TEST_ERRV, FLAG, 10$ : Br if not intended error test 
O5B5'CF OB 81 0818 1236 CMPW #MSG$_XM_DATAVL,MBX_BUF ; Do we have right message type? 
35 12 081D 1237 BNEQ 20$ ; Br if not 
O81F 1238 SSETEF_S EFN = #MBXAST_DELV ; Set event flag say mailbox delivered 
04 bB5e 1239 RET 3; Return 
0829 1240 10$: : ; 
o859 1241 $Q10_S - ; Have an outstanding read mailbox message 
829 1 rt CHAN = MBXCHAN,- 
0829 124 FUNC = #10$_READVBLK,- 
9 1244 IOSB = XM_10SB,- 
9 1245 ASTADR = CHK_MBX_AST,- 
9 1 rf Pl = MBX_BUF>- 
829 124 P2 = #MBXSIZE 
8 ; 1248 
04 0853 1249 RET 
854 1250 208: 
O2D0'CF DF 0854 1251 PUSHAL MBX_ERRMSG ; Set up the MBX error message 
9} DD 28 1 26 PUSHL #1 ; Argument count 
00741132 8F D SA 125 PUSHL M#UETPS_TEXT!STSSK_ERROR ; zi yret name 
0146'C of C 60 1254 MOVZWL (SP) STATUS ; Set return status 
8 D 65 1255 PUSHL # ; Argument count 
0306 1 a ! 2$ BRW ERROR_EXIT ; Error exit 


U TCgRS00 thay UETP bevice TEST FOR DMC/DMR 
v4-00 Attention AST rout 


ne =-SEP-19 
aa -SBTTL Attention AST routine 
: FUNCTIONAL DESCRIPTION: 

error summary 
no oe read request 
In error te 


CALLING SEQUENCE: 
Called via AST at $Q10 SETMODE!ATTNAST 


INPUT PARAMETERS: 
NON 


DDAEARAREXAPA AAA AAA AA AAA AAP AAAS 
>>rrrrr>, 


1338 
136) 
1 8 3 
1264 ; 
1265 ; 
086A 1 96 3 
O86A 1 ? : 
086A 1268 ; 
O86A 1 4 3 
8 A 1270; 
A 1271; 
086A 1 ie 3 
086A 1275 ; IMPLICIT INPUTS: 
OB6A 1274 ; NON 
086A 1275 ; 
086A 1 6 ; OUTPUT PARAMETERS: 
O86A 1277 ; NON 
086A 1278; 
086A 1279 ; IMPLICIT OUTPUTS: 
086A 1280 ; Error message if error 
086A 1281; 
086A 1 Ht ; COMPLETION CODES: 
086A 1283; STATUS if error 
086A 1284 ; 
086A 1285 ; SIDE EFFECTS: 
O86A 1286 ; Program exit if error 
O86A 1287 ; 
086A 1288 ;-- 
086A 1289 KM_ATTN_AST: 
OFFC O86A 1290 . WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R1I1> 
59 0002'cF 05 €1 He 31 BBC #TEST_ERRV,FLAG, 10$ ; Br if not 
087 1338 SSETEF_S EFN = #ATTN_DELV 
087B 1294 
087B 1295 $Q10W_S - 
087B 1296 CHAN = XM_CHAN,- 
087B 1297 FUNC = #10$_READVBLK,- 
0878 1298 10SB = XM_10SB,- 
087B 1299 P1 = RECV_BUF,- 
0878 1300 P2 = #128 
Q8A2 1301 
FEC3 30 B34 1 8 BSBW CHECK_IOSB ; Check IOSB 
AS 1 
O8AS 1304 $Q10W_S - 
OBA 1305 CHAN = XM_CHAN,- 
AS 1 06 FUNC = #10$_SETMODE! 10SM_ATTNAST,- 
O8A 130 I10SB = $B,- 
OBA 1 08 Pl = XM_ATIN_AST 
FE9E 30 C 1309 BSBW CHECK_IOSB ; Check I0SB 
04 O8CA 1310 RET 3; Return 
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s routine will be called when the driver sets/clears 
te or device status bits or data available but 


st, It sets a EF to indicate the AST delivered 


B11 
i, 
Thi i 
bi 
E 
ONE 
E 
E 


; Entry mask 


intended error test 


pP 
age ; 


; Set EF say attention AST delivered 
; Read the data message sent in error test 


: Enable attention AST, It's one shot 
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VAX/VMS UETP DEVIC 
Attention AST rout 


1316 108: 
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DDD DPEDPDPEDPE DP PGS £ BS BE EWI WII innonononononononun = 


ee a i ee a ee a ee ee ee ed a dd 
o — 
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WIWNAINIWIAAA AA AAANAI AIA WIAIAI WI AIANIAINIWI INI NWI WIG IAI WWIII WI 


C11 
f TEST FOR DMC/DMR 
ne 


MOVL 4 (AP) ,R4 
BBS #XMSV_ERR_FATAL 
BBS XM$V“ERR-LOST 
BBS #XMSV-ERR-START 
BBS #XMSV-ERR-MAINT 
BBS #XMS$V~STS-ORUN, 
BBS #XMSV~STS-DCHK, 
BBS #XMSV~STS-TIMO, 
BBS #XMSV~STS-DISC, 
BBS #XMSV"STS-ACTIV 
PUSHAL ERR_ATTN_ASG 
BRW 0$ 
PUSHAL ERR_FATAL_MSG 
BRW 0$ 
PUSHAL ERR_LOST_MSG 
BRW 70$ 
PUSHAL ERR_START_MSG 
BRW 70$ 
PUSHAL ERR_MAINT_MSG 
BRB 70$ 
MOVAL STS_ORUN_MSG,R5 
BRB 65$ 
MOVAL STS_DCHK_MSG,R5 
BRB 65$ 
MOVAL STS_TIMO_MSG,R5 
BRB 65$ 
MOVAL STS_DISC_MSG,R5 
BRB 65$ 
MOVAL NO_WAIT_READ,R5 
$Q10_S CHAN = 
FUNC = 
P2 = #MBRSIZE 
MATCHC # 
#ATTN_MBX 
DIVL2 #2 
MOVL 
SFAO_S CT ="AT 
OUTLEN = 
OUTBUF = FAO_ 
P1 = R5,- 
. . R6,- 
P4 = MBX_BU 
PUSHAL BUFFER_PTR 


MBXCHAN, = 
#10$_READVBLK,- 
MBX BUF ,- 

FYPES_LENGTH. ATTN MBX. TYPE 


R 

ATTN_MBX_TYPES NAMESCR2],R6 ; ...0f mailbox this is 
RSTR ="ATTN ABX_MSG,- 

BUFFER_PTR,- 
0_BUF 
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Check to see what's wrong 
Bev .charece are passed as args 


8 atal error 
BR if data lost error 
BR if DDCMP START message ; 
BR if DDCMP maintenance msg received 
BR if data overrun 
BR if retransmission threshold excded 
BR if DDCMP timeout 
BR if DISC error 
BR a protocol still active 
e 


hing else 


Error message 
Error message 


; Read mailbox associated with attn msg 


; Figure out... 
3 «e.just what kind... 


D.11 
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lhe UETP_ DEVIC $0 
on AST t UETP.SRCJUETCOMSOO.MAR; 1 (18) 


vate Attent rou 


n 


94 1369 70$: 
4 DD 099 0 PUSHL #1 ; Argument count 
00741132 8F DD 0996 137 PUSHL #UETPS_TEXT!STSSK_ERROR ; Error code 
O146'CF 6 dO T ; Save in STATUS 


99C 1 : 
13 ; Argument count 
9A6 1 ~ 


; Error exit 


1 
: MOVL (SP), STATUS 
¢ ERROR_EXIT 


? 
? 
? 
? 
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v04-00 One Minute Timer Expiration Routine SEP=- UETP.SRC 


- ! a x -SBTTL One Minute Timer Expiration Routine 
9A6 1 ig 3; FUNCTIONAL DESCRIPTION: 
9A6 1380 ; This routine will be called only if the timer which was set to prevent 
ons } 13 program hangs goes off. 
9A6 1 : 3; CALLING SEQUENCE: 
4 ! : 3 Called via AST at SSETIMR expiration. 
9A 1 § ; INPUT PARAMETERS: 
9AS 1 : NONE 
9A6 1 § 3 
9A 1 3; IMPLICIT INPUTS: 
O9A6 1390 ; NONE 
9A6 1391 ; 
9A6 1 38 ; OUTPUT PARAMETERS: 
O9A6 1393 ; NONE 
O9A6 1394; 
O9A6 1395 ; IMPLICIT OUTPUTS: 
O9A6 1336 3 NONE 
O9A6 1397 ; 
09A6 1328 3; COMPLETION CODES: 
O9A6 1399 ; NONE 
09A6 1400 ; 
O9A6 1401 ; SIDE EFFECTS: 
09A6 1486 : NONE 
O9A6 1403 ; 
09A6 1404 ;-- 
09A6 1405 
9A6 1208 TIME_ERR_OUT: 
OFFC 9A6 140 WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> = Entry mask 
0000022c 8F DD O9A8 1408 PUSHL #SS$_TIMEOUT ; Push the siynal name 
0146°CF 6E€ 00 OQ9AE 1409 MOVL (SP), STATUS ; Set exit status 
01 bo 0983 1410 PUSHL # ; Push the argument count total 
0188 1 0985 1411 RW ERROR_EXIT ; Bail out completely 


| 
[ 
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UE 
Sy 

988 1413 -SBTTL Three Minutes Timer Expiration Routine 10 
9B8 1414 ;+4 4 10 
9B8 1415 ; FUNCTIONAL DESCRIPTION: IT 
98 1218 : This routine will be called when the device test has been run for LC 
9B8 1417: about three minutes. LI 
9B 1213 $ LI 
9B8 1419 ; CALLING resents MA 
e 1? 9 ; Called via AST at SSETIMR expiration. on 
988 14 ¢ 3 INPUT PARAMETERS: 

9B8 14 | NONE 

988 1404 ; 

98 1425 ; IMPLICIT INPUTS: 

988 14 § 3 NONE 

988 1427 ; 

9B 1428 ; OUTPUT PARAMETERS: 

bee 1429 ; NONE 

968 1430; 

0988 1431 ; IMPLICIT OUTPUTS: 

44 14 ¢ 3 NONE 

0988 1433 ; 

0988 1434 ; COMPLETION CODES: 

B288 1435 ; NONE 

098 14 § g 

bons 133 ; SIDE EFFECTS: 

0988 1438 ; Sets a flag to indicate timer expiration. 

0988 1439; 

09B8 1440 ;-- 

Bees 1441 

988 1926 TIME_SUC_OUT: 

OFFC Bees 1307 ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,RI1> =; Entry mask 
O002'CF 02 A8 O9BA 1445 BISW2 #TEST_OVERM,FLAG 3; set test over bit 
04 O9BF 1446 RET 


re eee FF ES ES ee lone STS PES SP PPP PP PP PS 
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9C 144 
ae 1445 oe -SBTTL System Service Exception Handler 
9CO 1451 : FUNCTIONAL DESCRIPTION: 
9¢ 1426 : This routine is executed if a software or hardware exception occurs or 
ae V2? 3 if a LIBSSIGNAL system service is used to output a message. 
9¢ 1455 : CALLING SEQUENCE: 
4 1228 5 Entered via an exception from the system 
09 1458 : INPUT PARAMETERS: 
Bae 1323 : ERROR_COUNT = previous cumulative error count 
ROBT eg aca aa 
99¢0 1468 : SIGNL ARY PNT 
030 1465 ; i MECH ARY PNT | 
09C0 1466; j=  —§ innecececeeens e+) --------- 
ae ae tation PSR 
99¢0 1489 ; | ESTABLISH FP | 
09C0 1471: is DEPTH i Mechanism Array 
O90 1472 | naeeennnnneee=- i 
09CO 1473; : RO } ! 
09C0 1474 ; ;csesinsieoneersnbicnta 
09CO 1475 ; : R1 ! v 
09CO 1476 : i neanna=----- en-i --------- 
ae BRFSS Pt 
09¢0 1479 : ' CONDITION NAME! 
o9¢ 1481 : i N-3 ADDITIONAL! Signal Array 
9C 14 § ; ' LONG WORD ARGS! : 
090 1483 ; i eceennnn-n---== i i 
$9c0 1488  saninencanibahs 
aaeo 1a eet PA 
09¢ 1488 > IMPLICIT INPUTS: 
30 1490 os 
9CO 1491 : OUTPUT PARAMETERS: 
a 
9CO0 1494 ; IMPLICIT OUTPUTS: 
iti a 
9C 1299 > COMPLETION CODES: 
9C 1338 3 SS$_NORMAL if it's a UETP condition or RMS error. 
is! 1 r Error status from exception, otherwise. 
9C 13 > SIDE EFFECTS: 
9c0 1 § 3 May branch to ERROR_EXIT. 
$3 I ? : May print a message. 
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RO : Restore AST enable... 
“§$*#SS$_NORMAL RO : 


> 
SSETAST_S ENBFLG = 
eye 


oO 
— 


9C0 1505 
9c0 (1 $ SSERROR: 
OFFC ae } WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> ; Entry mask 
9C2 1 § SSETAST_S ENBFLG = #0 ; Disable AST delivery 
1 odd O9CB 1 19 PUSHL # 3 Assume ASTs were enabled 
50 9 D1 O9CD 151 CMPL $, @SS8_VASSET RO 3; Were ASTs ee 
2 13 0900 1 \ BEQL 0$ ; BR if they we 
; Se s to rene n disable 
6—E D4 M3 ! F 108 CLAL (SP) Set ASTs t in disabled 
904 1515 SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
4 DD QO9DD 1 1 PUSHL #1 3; Assume SS failure mode was enabled 
50 9 D1 O9DF 151 CMPL oo WASSET,RO ; Was SS failure mode enabled? 
02 13 O9E2 1518 EQL 0$ ; BR if it was 
6E 04 +> ! % 208 CLRL (SP) ; Set SS failure mode to remain off 
56 04 AC 4 366 13 1 MOVL CHFSL_SIGARGLST(AP),R6 ; Get the signal ; reer potocer 
59 04 a6 «67D «(O9EA «15 3 mova cHFSL SIG_NAME(R6),R9  : Get NAME in R n R10 
19 ED ogee 12 z CMPZV gs T3380 _FAC_NO.- 3 Is this a Seaion Fag LIBSSIGNAL? 
00000074 8F 59 O9r 1525 R9,#UETPS_FACILITY 
14 ig 9F7 15 § EQ 30$ ; BR 7 this is not a UETP exception 
66 02 C 9F9 15 SUBL2 ge CHF SL SIG_ARGS(R6) Drop the PC and PSL 
SFC 1528 SPUTMSG_S MSGVE C"s CAFSL_ SIG LARGE (RO) ; Print the messa 
a aoe 1 , sos RB 40$ ; Restore ASTs and SS fail mode 
59 0000045C 8F 01 OAOD 1531 CMPL #SSS$_SSFAIL,R9 ; RMS failures are SysSvc_ failures 
76 12 OA14 15 § BNEQ 50$ ~ ; BR if this can't be an RMS failure 
ED Aig 13 Z CMPZV ostsey. 43 -Nb. - 3; Is it an RMS failure? 
01 4 OA19 1535 4 *O° PRASS CPACELITY 
12 male 15 $ BNE 50$ ; BR if not 
5A 0000000 ge A OA1D 133 BIC EL2 #*XF0000000,R10 : Strip control bits from status code 
08 A6 04 9 OA 4 1338 MATCHC fwiht te S16 -ARG1(R6),~ ; Is it an RMS failure for which... 
004D'CF A § 1540 O_RMS_AST “TABLE 3 ..-no AST can be delivered? 
1A A ¢ 138] i BEQL NOs ; BR if so - must give error here 
01 OA 1363 #*M<RO> ; Restore SS failure mode... 
A 1544 SSE TSEM. S ENBFLG = RO . 
134? PR “#*M<RO 
50 01 0 OA44 1869 : Supply a standard status for exit 
4 ry 1348 50s ; Resume processing (or goto RMS * ERROR) 
O146°CF 59 0 OA4&8 1550 MOVL R9, STATUS ; Save the status 
58 4 OA4D 133) CLRL R 3; Assume for now it’s not SS failure 
59  0000045C 8F 1 QAGF 1 § CMPL #SS$_SSFAIL,R9 ; But is it a System Service failure? 
38 2 OAS 132 BNEQ $~ 3; BR if not - no special case message 
A5S8 1 22 SGETMSG_S MSGID = ; Get SS failure code associated text 
AS 13 5 MSGLEN = aur FER PTR,- 
AS 1 2$ BUFADR = BUF ,- 
ASS 1 FLAGS = 
AS8 1 3 OUTADR = ade BLOCK 
Ol6F°CF 9 AGF 1 TSTB MSG_BLOCK+1 ; Get FAO arg count for SS failure code 
9 A H 1 $9 BEQL 3; Don't use SGETMSG if no SFAO args... 
0O0C *CF OF ‘A7 156 PUSHAL BUFFER_PTR ; ...else build up... | 
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1 OD OA79 1 ¢ PUSHL #1 3 «+28 message describing... 
00741130 8F DD are 1 PUSHL eve ee rent i «ewhy the System Service failed 
00 SA FO 0A81 1564 INSV R1O,#STSSV_SEVERITY,- : Give the message... 
of ABS 1565 8 TS$S_SEVERITY, (SPS ; .e.the correct severity code 
09 A 3 1 § MOVL #3,R ; Count the number of args we pushed 
’ A 68 60$ es rus 
3 DD OA 1 $3 PUSHL R10 ; Save SS failure code 
58 1 oO . 6 i oY 70$ MOVL #1,R8 ; Count the number of args we pushed 
57 6 4 C A90 157 MULL #4, CHFSL_SIG_ARGS(R6),R7 ; Convert longwords to bytes 
3 7 § 033 157 SUBL ° ; Save the current signal array... 
6— O4A 7 A97 1574 MOVC R7,CHFSL_SIG_NAME(R6),(SP) ; ...0n the stack 
7E 66 8 1 OA9C 1575 ADDL R8,CHFSL_SIG_ARGS(R6),-(SP) ; Push the current arg count 
00CcD 31 OAAO 1576 BRW ERROR_EXTT 
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A ] f or -SBTTL RMS Error Handler 
AAS 1580 : FUNCTIONAL DESCRIPTION: 
or ! ; This routine handles error returns from RMS calls. 
AAS 1 ‘ ; CALLING SEQUENCE: 
“ } : 3 Called by RMS when a file processing error is found. 
AAS 1 : : INPUT PARAMETERS: 
“ny ! 5 The FAB or RAB associated with the RMS call. 
AAS : : IMPLICIT INPUTS: 
on : oY 3 NONE 
OAAS 1 34 : OUTPUT PARAMETERS: 
OAAS 1593; NONE 
AAS 1594 ; 
AAS 1595 ; IMPLICIT OUTPUTS: 
a 1336 3 Error message 
OAA 1398 : COMPLETION CODES: 
igi a 
OAAS 1601 ; SIDE EFFECTS: 
OAA 1606 3 Program may exit, depending on severity of the error. 
OAA3 1603 ; 
BS 1a 
on 1906 RMS_ERROR: 
OFFC ao ats ~ WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Entry mask 
56 04 AC DO QAAS 1609 MOVL 4(AP) ,R6 ; See whether As dealing with... 
66 03 91 AAJ 1610 CMPB #FABSC_BID,FABSB_BID(R6)- SL swell FAB o a RAB 
16 12 QOAAC 1611 BNEQ 10$ ; BR if it's ; RAB 
57 OFD'CF ODE OAA 1916 MOVAL FILE,R7 3 FAB-speci tic code: text string... 
58 56 DO OABS 161 MOVL R6,RS 3 on oaddrees of FAB... 
OC A6 DD OAB6 1614 PUSHL FABSL_STV(R6) > ...STV field for error... 
08 A6 DD OAB9 1615 PUSHL FABSL_STS(R6) 3 mt 2 H field for error... 
0146"CF 08 AB 00 “rs 1916 MOVL FABSL~STS(R6) , STATUS 3 ...and save the error code 
aoa) BALE Of on BRB COMMON ; FAB and RAB share other code 
57. 0209°CF 43 AC4 1619 ; MOVAL RECORD,R7 3; RAB-specific code: text string... 
58 3C A6 DO OAC9 1620 MOVL RABSL_FAB(R6),R8 ; ---address of associated FAB... 
bs A6 DD OQOACD 1621 PUSHL RABSL_STV(R6) 3 .--STV field for error... 
: A6é DD OAD 16 § PUSHL RABSL_STS(R6) 3 STS field for error... 
0146'CF 08 A6 00 ne 1 7 cess VL RABSL_STS(R6) ,STATUS 3 «eeand save the error code 
5A 34 AB 9A OADD 1625 " MOVZBL FABSB_FNS(R8),R10 : Get the file name size 
ADD 16 § SFAO_S CTRSTR = RMS ERR_STRING,- ; Common code, prepare error message... 
ADD 16 OUTLEN = BUFFER_PTR,- 
ADD 16 3 OUTBUF = FAO_ UF ,- 
A 18 sa 
ADD 1631 P = PABSL _FNAC(R8) 
ree, 4 na 19 § a ge BUFFER. PTR : .+.and argumerits for ERROR_EXIT... 
00741130 DD OAFD 1634 PUSHL #UETPS_TEXT eas 
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mm eT tsa Seve 
59 aaa 6 16 STATUSTRO ; 3 «+-get the severity code... 
6— 59 88 OBOA 1638 BISB2 RY, (SPS ; ...and add it into the signal name 
5 D OBOD 1639 PUSHL #5 ; Current arg count 
O0SE 1 OBOF 1640 BRW ERROR_EXIT 
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-SBTTL CTRL/C Handler 


+ 
FUNCTIONAL DESCRIPTION: 
This routine handles CTRL/C AST's 


CALLING SEQUENCE: 
Called via AST 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
WONE 


SIDE EFFECTS: 
NONE 


Be Se Se Oe Oe Oe Se Oe Oe Os Oe Oe Os Oe Se Se Ge Ge Se Se Se Se Se Se Sees 
e a 
‘ 


MUNIMUIU EE B&B BWA I 
a a ed ed dd dd dd = ds 


DDD DDD DD. DDE DDD DEDEDE DDD DDD DP DPA DAP A AAA AAA AAA AAA AO Orn 
OO 0900009006969 09 09 00 09 SI NIN SN NSD ITI EE EE EE 
MO OO NAUE WIN 9 OD NAUE WN OS OD NAME WIN -2 OOO NAUE WN O OOONOAUE UN 


TS ttttittit ttt ttt tht htthht tht bhhhthibhhtthtteh ttt 


CCASTHAND: 
OFFC é .WORD “M<R2,R3,R4,R5,R6,R7,R8.R9,R10,R11> ; Entry mask 
21 0002'CF 06 €1 4 BBC #FLAG_SHUTDNV,FLAG,10$ ; Have to shut down device? 
A $Q10_S - ; Shut down the device 
A HAN = XM_C 
A FUNC = r10s" SEtRODE ! 108M. SHUTDOWN, - 
A 10SB = XM_ 
A P1 = 0 
B 10$: 
OOA3°CF OF B PUSHAL CNTRLCMSG : a message pointer 
1 OD F PUSHL arg count 
00741130 8F DD 1 PUSHL #UETPS$_TEXT!STSSK “WARNING § “Set Signal n 
0 oD 7 PUSHL + indleate on sbneresi toruinetion 
OOAO'CF OF 9 PUSHAL PROCESS_NAME 3 eee 
DD D PUSHL # 
07410€0 DD F PUSHL #UETPS AB ABENDD 'STSSK _WARNING" 
00000000 ' GF 69 F 5 CALLS : Qutput the message 
D C MOVL acts 4 ThHio, MSG!- : Set the exit status 
D S$$_CONTROLC-= 
D STSSK_SUCCESS+STS$K_WARNING>,- 
0146'CF 10000650 8F D STAT 
65 SEXIT_S STATUS ; Terminate program cleanly 
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-SBTTL Error Exit 


; FUNCTIONAL DESCRIPTION: 
: This routine prints an error message and exits. 


CALLING SEQUENCE: 
MOVx error status value,STATUS 
PUSHx error specific information on the stack 
PUSHL current argument count 
BkW =ERROR_EXIT 


; INPUT PARAMETERS: 
; Arguments to LIBSSIGNAL, as above 


IMPLICIT INPUTS: 
NONE 


: OUTPUT PARAMETERS: 
: Message to SYSSOUTPUT and SYSSERROR 


LAWN POPOPOPONONONONOND | 3 3 QO OOOO OOOO 00000 


FP O00 008 NOL 


B 1 
By) 1685 
B 16 § 
B 16 
16 3 
B 18 
B 1700 
1701 
B 17 ¢ 
B 17 
0B 1704 
+3 1705 
17 § 
7. 17 
B 1708 
0B 1709 
0B 1710 
0B 1711 
8 ine 
0870 1714 ; IMPLICIT OUTPUTS: 
rogram exit 
ABI stelle 
0870 17 . COMPLETION CODES: 
88 8 Vy 8 Error in STATUS 
0B 8 1720 ; SIDE EFFECTS: 
0B 1721 NONE 
0B70 17? ¢ 
O80 1794 ° 
8 Q Vy i ERROR_EXIT: 
0B 17 SSETAST_S ENBFLG = #0 ; ASTs can play havoc with messages 
15 0002°CF 03 EO 0B79 1728 BBS #BEGIN_MSGV,FLAG,10$ ; BR if *pegin” msg already orinies 
7E 04 OB7F 1729 CLRL -(SP) 3; Set the time stamp flag 
OOOF'CF DF 0881 1730 PUSHAL tai ; Set the test name 
02 OD O0B85 1731 PUSHL # ; Push the argument count 
00741039 8F DD 0B87 17 ; PUSHL #UETPS_BEGIND!STSSK_SUCCESS ; Set the message code 
00000000'SF 04 FB OB D 1733 as CALLS #4,G*LTBSSIGNAL ; Print the startup message 
0182°CF O08 8E (C1 ee 4 1538 ADDL3 (SP)+,#8,ARG_COUNT 3; Get total # args, pop partial count 
0142°CF D6 A 1736 INCL ERROR_COUNT 3; Keep running error count 
00 DD 1737 PUSHL #0 3; Push the time parameter 
BoA 7. 1738 PUSHAL aye 3 NAME ; Push test name... 
OOOF 30 or DD 4 1739 PUSHL #*XFO0O ; «+-arg count... 
007410E2 8F DD AA 1740 PUSHL #UETPS_ABENDD!STS$K_ERROR ; ...and signal name 
0142°CF OD 0 1741 PUSHL ERROR COUNT ; Finish off arg List... 
gorS84) gr Bp MBBS 17eg Pusat RUE wae bs 
bO74 03 af DD ; 1744 PUSHL  #UETPS ERBOXPROC ! STSS$K_ERROR > «s.for error box message 
LL = 2G6*L NAL ; Truly bitc 
00000000'GF 0182°CF FB ch 1745 CALLS ARG_COONT,G*LIBSSIGNA Truly bitch 
0146'CF 03 cP 1747 rstt TATUS ; Did we exit with an error code? 
: we 
007410E2 8F 06 03 1549 MOVL #UETPS_ABENDD!STSSK_ERROR,- ; Supply a generic one otherwise 
0146'CF D9 1750 STATUS 
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Error 
DC 1751 20$: 
21 0002'°CF 06 €1 DC 17 ; 
BE2 17 0S - 
BE2 1754 ce 
BE2 1755 FUNC 
BE 1736 10 
ef 17 = 
C 1758 30$: 
0146'CF 10000000 8F cB OCO03 1759 Bl 
Ococ 1760 SEXIT_S 


1 


“SEP-19 


“SEP=19 


= XM_CHAN 


10SB8,- 


Be O4i2eied LETPeSRCUETCOMS 


4) #FLAG_SHUTDNV,FLAG,30$ ; Have to shut down devi 


; Shut down the device 


NC #108 SETMODE ! 10$M_ SHUTDOWN, = 


+ es Tssn INHIB_MSG,STATUS ; Don't print messages t 


: Exit in erro 


Saas 


ce? 


wice! 


——————————— 
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~SBTTL Exit Handler 


p++ 
; FUNCTIONAL DESCRIPTION: 
This routine handles cleanup at exit. If the a togical cone is 
uated N the routine will update the tes te 
UETINIDEV.DAT file depending on the UETUNTSM_ TESTABLE 
bh NT$B © aa field of the unit block for each unit fo 
under test. 


CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT PARAMETERS: 
STATUS contains the exit pyeree, 
FLAG has synchronizing bit 
DDB. RFA contains the RFA of the DDB record for this device in UETINIDEV. 


IMPLICIT inputs 
UNIT_LIST peewee to the head of a doubly Linked circular List of unit 
locks for the device under test. 


OOOCCoCoo «tf. 


Lag ny Bae in the 
r the device 


a i i i 


OUTPUT — 


IMPLICIT OUTPUTS: 
Various tiles are de-accessed, the process 
TF the moe prpeocen eet ton with no eve} is carried out 
If the oF ical name is equa o ‘ONE’, the rout ine will update 
the t tag. n the UVETINIDE are tite dependin 
UETUNTSA. Te ABLE flag state in the UETUNT 8. saat s° field of the unit 
block for each unit for the device under test 


COMPLETION CODES: 
NONE 


name is ef and any 


SIDE EFFECTS: 
NONE 


Be Se Se Se Se Ge Se Ge Se Se Ge Be Se Ge Be Se Ge Ss Ge Ge Bs Se Se Se Se Sse Se Se Se Sse Se Se Sse Se Se Be 


EXIT_HANDLER: 


DODOOOO 000000 OOO 000000909 0909 0909 09 09 SIN NI NINN NS NS NAA AA AAA O 


POIOIVOVOOAIOVOAODVOPOODOIOOIOOAAOODOOAOOOOOAOAAAAOIOODAAOAIOOAOAAOOOOOOHOAHOOOO 
FUP Be BS BE nt rt ns th kk dk tk tk th tt tt tt 
99 FFF MNOS DDV OOO WN 
a a a ed ed ed dd dd dd dd 8 
BNA ML AN OOD NAME WIS OO NAME WN O OO NAME WIN 0 OD NAME WW 0 OONIOUS WP 


OOOO OCOCOOOCOOCOCOCOCOCOOOOSOOOOSOOOCOCOCOCOOOCOOCOOCOOCOOC OOOO OOOOCOOCO: 
0090900000009 690000 00 00 0909 09 09 09 0909 SIN SINISE SSN NSN 


OFFC - WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> ; Entry mask 
SSETSFM_S ENBFLG = a ; Turn off oe Service failure mode 
SSETAST_S ENBFLG = ; No more 
0 STRNLOG_S LOGNAM = - ; Get the run mode 
0 RSLLEN : Shes re. 
= 
0014°CF 20 8A 1 BICB2 #LC_BITM,B BUFFER ; Convert to upper case 
0014°CR  4F BF O91 1 CHEB’ #"A70/ BUFFER : Is this a one shot? | 
13 1 BEQL 10$ ; BR if yes. 
0088 )= 531 ! 108 BRw END_UPDATE ; ..-else don’t update UETINIDEV.DAT 
03 0002°CF 02 9 1 ; BBS esare TO_UPDV,FLAG,20$ ; Only update if it's safe | 
OOAF 1 ! 208 BRW UPDATE ; Else forget it | 
5A O72C'CF ODE 1 "  MOVAL INI_RAB,R10 : Set the RAB address | 
| 


| 
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Mic 008 Exit Handler ety 7 8 332308 LETS SCS cOmsOo MAR: 1 ° (26) | 
1—E AA 9 C62 1819 MOVB #RABSC_RFA,RABSB_RAC(R10) ; Set RFA mode 
10 AA o776'Cr 3 3 C g 1820 MOVC3 #o0,DDB-RFA RABSUREACRIOD ; Set RFA to ADB Line | 
C6D 1821 $GET RAB = TRIOS ; 60 back to the DDB record 
5 50 3 C § 1 § BLBC RO,UPDATE_FAILED ; If failure then forget it 
1E AA Ye 0 QC79 1 MOVB WRABSC_SEQ,RABS$B_RAC(R10) ; Set back fo sequential mode 
5B O638'CF 00000638'8F C1 OC7D 1824 ADDL3 #UNITCIST UNIT _CIST R11 ; Set the unit block List header 
59 D4 OCB? 1825 CLRL R : Init a counter 
be 9 1 § UNIT_LOOP: 
01 €1 OC89 1 BC #UETUNTS$V_TESTABLE,- ; BR if this unit is not testable 
02 0B AB OC8B 1828 UETUNTSB_FLAGS(RI1) ,108 
59 6 33 18 4 108 INCL R ; Count testable units 
5B 6B CO $69 1831 ADDL2 (R11),R11 3: Next unit block 
00000638'8F 5B »D1 OC9 1336 PL R11,#UNIT_LIST ; Are we full circle in the list? 
ED if OC9A 18 BNEG UNI T_LOOP ; not 
59 }6~p5) «6(0C9C:) «C1834 TSTL Ro 3; Any testable units? 
12 12 OC9E 1835 BNEQ 20$ ; BR yes... 
OO18'CF 4E BF 90 OCAD 1836 MOVB #*A/N/ ,BUFFER+4 3 «else disable the DDB record... 
OCA6 1837 SUPDATE RAB = (R10) 3 «e-here 
3¢ 50 6©E9 «6(OCAF 61838 LBC RO,UPDATE_FAILED :; If error then forget it 
pees 1839 20$: 
5B 6B CO OCB 1840 ADDL2 (R11),R11 3; Next unit block 
00000638'8F 5B 01 OCBS 1841 CMPL R11,#UNIT_LIST ; Are we full circle in the List? 
4E 13 OCBC 1etg BEQL END_UPDATE ; BR if yes 
pcee 184 $GET RAB = (R10) ; Get a record ; 
2450 E9 OCC? 1844 LBC RO,UPDATE_ FAILED : If error then forget it 
CO14"CF 20 8A OCCA 1845 BICB2 C_BITM, BUFFER ; Convert to uppercase 
0014'CF 55 BF 91 OCCF 1846 PB #*A7U/ ,BUFFER ; Is it a UCB record? 
35 12 OCDS 1847 BNEQ END_UPDATE ; BR if not 
01 EO OCD? 1848 BBS #UETUNTSV_TESTABLE,- ; BR if this unit is testable... 
D6 OB AB OCD9 1849 ETUNTSB_FLAGS(R115,20$ 3 
O018'CF 4E 8F 90 OCDC 1850 MOVB #*A/N/ ,BOFFER+4 3 .-.ec.se disable the UCB record... 
OCE2 1851 SUPDATE RAB = (R10) 3 «here 
C4 50 €8 OQCEB 1336 BL RO,20$ ; Look at the next record if no error 
OCEE 1853 UPDATE_FAILED: 
OC AA DD OCEE 1854 PUSHL RABSL_STV(R10) ; Do a simple message... 
50 DD OCF1 1855 PUSHL 3 ..-to tell of the failure 
01B8'CF DF OCF3 1856 PUSHAL INIDEV_UPDERR 
01 DD OCF? 1857 PUSHL #1 
00 EF OCF9 1858 EXTZV #STS$V_SEVERITY,- ; Copy the severity from RMS status... 
7€ 50 03 OCFB 1859 #STS$S_SEVERITY,RO,-(SP) 
6E 00741130 BF C8 OCF 1860 BISL2 #UETES TEXT, (SPS : ...tO our message 
00000000'GF 05 FB OD05 1861 CALL #5,G*LIBSSIGNAL 
9p9¢ 1 6¢ END_UPDATE: 
00 DD ODOC 186 PUSH #0 ; Set the time flag 
OOOF * CF OF 343 1864 PUSHAL santa ; Push the test name 
3 DD OD12 1865 PUSHL # ; Push arg count 
g EF OQD14 1996 EXTZV #STSS$V_SEVERITY,- ; Push the proper exit severity... 
0 D1g 186 #STS$S_SEVERITY,- 
7E 0146°CF D1 1868 STATUS,~(SP) 
6€ 00741080 8F C8 4h 1 34 BISL2 #UETPS_ENDEDD, (SP) 3 ...and use it in our message code 
4 Dd OD 1870 PUSHL #4 
51 E 00 Op24 1 o} MOVL SP,R1 
D27 1 § SPUTMSG_S MSGVEC = (R1) ; Output the message 
D356 187 SSETPRN_S PRCNAM = ACNT_NAME ; Reset the process name 
04 at } fe RET ; That's all folks! p 
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0D42 1876 «END UVETCOMSOO 
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Symbol table 


10$_SETMODE 
10$"WRITEVBLK 
ITERAT hE 


LC_BITM 
LIGSS1GNAL 
MAX_DEV_DESIG 


y “LEN 
MAX_PROC_NAME 
MAX-UNIT-DESIG 
MBXAST_DELM 


MBXAST DELV 
MB 


MB 
MBX~ERRMSG 
MBX” LOGNAMS IZ 
MOD 


NEW_RODE 

NOUNIT_ SELECTED 
NO_CTRCNAME 
NO-RMS_AST_TABLE 


NO-WAIT_READ 
wakT LeRGTH 


ON 
OTSSCVT_ TILL 
OUTADDRESS 


PROCE SS"NAME_ FREE 
PROC_CONT_NARE 
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RMSS$_FACILITY 
RMS$ RAB 
RMS_ERROR 

RMS "ERR. STRING 
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Symbol table ae ets 1 Br 3e:28 YET SRC SESCOMSOS MAR: 1 - 3 
SUP_FAB 00000778 R UETUNT TYPE 2 98 
SYSSASSIGN eeeerere GX UETUNTSC-FAB = 

SYSSCANTIM eenerere GX UETUNTSC~INDSIZ = 1A4 
SYSSCLREF eereereee GX 5 UETUNTSK—FAB = 11 
SYSSCONNECT eeeerenre GX : UETUNTSK_RAB = 1 

SYSSCREMBX teeeeere GX ETUNTSM_ TESTABLE 2 

SYSSCRMPSC eeeerere GX 5 UETUNTST_FILSPC z 

SYSSOCLEXH eererene GX 5 JE TUNTSV_ TESTABLE = 91 

SYSSEXIT teeerenre GX 2 UETUNTSW SIZE = 9 
SYSSEXPREG eeeenreee GX IT_DESC eo R 0 
SYSSFAO terenere xX 5 UNIT“LIST 638 R 
SYSS$GET teeerere GX 2 T=LOOP 83 R ie 
SYSS$GETDEV teeeeere GX T"“NUMBER 62 R 3 
SYSSGETDOVI teeerenre GX 5 UPDATE _FAILED cre - 05 
| SYSSGETPSG eeeerere GX 5 SIZE = 00 

SYSSINPUT 00000061 R é XM$M_CHR_LOOPB = at's 
SYSSMGBLSC eeeerere GX “CHR_MBX = 0000001 

SYSSOPEN teeeeeee GX 5 XMSV_ERR_FATAL = 0000001 
SYSSPUTMSG teeeneee GX 5 XMS$V_ERR_LOST = 00000014 

SYS$Q10 eeeneree GX 05 XMSV_ERR_MAINT = 00000013 

SYS$Q10W tererere GX 93 XMSV_ERR- START = 194d 
SYSSSETAST eeereree GX 5 XMSV_STS_ACTIVE = 00000008 
SYSSSETEF eeeeeeee GX 5 XMS$V_STS_DCHK = 00000008 
SYSSSETIMR eeeenene GX 5 XMS$V-STS_DISC = 0000000E 
SYSSSETPRN terereee GX 5 XMS$V_STS_ORUN = 0000000A 
SYSSSETSFM eeeeeewe GX B2 XMSV_STS_TIMO = Ha S$ 
SYSSTRNLOG eeeereee GX 5 XMIT_BUF 0000185 R 03 
SYSSUPDATE eeeeenee GX 05 XMIT_EFN = 00000005 
SYSSWAITFR eeeneeee GX 05 XMIT-RECV 00000478 R 05 
SYSSWFLAND eeeeeeee GX 05 XMMBR_DESC 00000188 R 03 
SYSIN_F 60000648 R 03 XM_ATTN_AST 0000086A R 05 
SYSIN_R 4444684 & 03 XM_CHAN 00000197 R 03 
TEST_ERRM = 00000 3 XM_10SB O000001A5 R 03 
TEST_ERRV = 44 

TEST_NAME OOOOOOF R 02 

TEST_OVERM = 00000002 

EST_OVERV = 00000001 

TEXT BUFFER z aia 4 

THREEMIN 00001DD R 08 

TIME_ERR_OUT 999 9A6 R 0 

TIME_ID_T = 00 $01 

TIME-ID-2 z 3 

TIME-SUT_OUT 0 R 05 

TTCHAN S R 83 

UETCOMSOO RG 5 

UETP s 4 

UETP$_ABENDD = 0074 

UETP$_ABORTC = 748 

UETP$_BEGIND = 0074 

UE TP$_DENOSU = 0074 

UE TP$_DEUNUS = 0074819A 

UE TP$_ENDEDD = 007410 3 

UE TP$_ERBOXPROC = 0074 

UETPS_FACILITY = 4 

UETPS$_OPENIN = 3 

UETPS” TEXT = 00741 

UE TUNTS$B_FLAGS z 00008 
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Psect synopsis -SEP-19 4:4 TP. SRCJUETCOMSOO.MAR; 1 (26) 


beam ean nme cence a $ 
! Psect synopsis ! 


teres e awn eeceuesore + 


PSECT name Allocation PSECT No. Attributes 


» SS a 0000 8 ( ) 0( 0.) NOPIC USR CON ABS ' LCL NO a NOEXE NORD NOWRT NOVEC BYTE 
SABSS $3 0 ( “a 1 ¢ * NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 0 3 ( 1419.) ¢ ( ¢°3 NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RWDATA Ob ; ( e192? ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM ; 8 ¢ ( 3 on 4 ( 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
COMS 000D ( 3394.) 5 ( 5.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 

gem eerocce Sewer eo nasenmaoseeoe= + 

i? Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 28 00: 00:00.07 00:00:00 .42 
eb processing V3 Bp 88: 2-19 Bs Be BG 
Syabol table sort 0 00:00: 2.26 00:00:08:88 

$11 83:92: 6. 00:00:16.5 

Symbol table output 40 0: Ate BF OR ke 
Psect synopsis output 6 00:00:00.0 00:00:00.05 
Cross-reference output ? es See | BF 08 +88 
Assembler run totals 134 00:00:34.21 00:01:15.23 


The working set avers was 900 pages. 

134408 bytes (263 pages) of virtual memory were used to buffer the intermediate code. 

{pere were 80 pages of symbol table gpece ah tqeater to hold 1540 non-local and 54 Local symbols. 
1876 source Lines were read in Pass 1, produci ng 41 object records in Pass 2. 

65 pages of virtual memory were used to define 56 macros. 


Macro library name Macros defined 


$255SDUA28: (UETP.0B ake MLB; 1 ‘ 
=$52280UA 8: SYS.0B MLB; 1 

SYSLIB stARCET. MLB; 2 51 
s Hee (all libraries) 53 


1868 GETS were required to define 53 macros. 


| 
| 
There were no errors, warnings or information messages. | 
MACRO/LIS=LIS$:UETCOMSO0/0BJ=0BJ$:UETCOMSOO MSRC$:UETCOMSOO/UPDATE=(ENHS:UETCOMSO0) +EXECMLS/LIB+LIB$:UETP/LIB 
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